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OOEF 
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0022 
0002 



ENTRY IN NIPROC 



ENT ALLIN 
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EQU COUNT ($B8) 

EQU PRLVL($EF) 

EQU AMASKT($B7) 
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EQU LPMSK(2) 
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THE RETURN LOCATION, A, Q AND I REGISTERS AND 
PRIORITY ARE SAVED IN A PUSH-UP POP-DOWN STACK 
BY PRIORITY LEVEL. THEN THE NEW PRIORITY AND 

■ MASK ARE SET AND CONTROL IS TRANSFERRED TO THE 
ADDRESS ASSOCIATED WITH THE LINE ON WHICH THE 
INTERRUPT APPEARED. 
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END 
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0025 
006F 
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0071 
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0050 
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ENT ASAV 

ENT QSAV 

ENT MSAV 

ENT PWFOV 

ENT HA 

ENT PRO 

ENT PWFAIL 

ENT PTYERR 

EXT POWERU 

EXT JOBIND.SWTCH 

EXT PARITY 

EXT SYFAIL 

EQtl INT($2B) 

EQU ATEH($2B),SIGN($32) 



A-REGISTER SAVED FROM ENTRY 
Q-REGISTER SAVED FROM ENTRY 
M-REGISTER SAVED FROM ENTRY 
OVERFLOW SAVED FROM ENTRY 
GENERALIZED HEX TO ASCII CONV. 



POWER FAILURE INTERRUPT PROCESSOR 
MEMORY PARITY ERROR PROCESSOR 
USER SUPPLIED POWER RESTORE HAND. 



SITE FAIL LOCATED IN SYSDAT ($18FF) 



EQU LPMASK(2) 

THIS PROCESSOR MUST BE IN RESIDENT IN ORDER TO 
PROCESS MEMMORY PARITY. THE PROCESSOR WHICH 
RESPONDS TO PROTECT VIOLATIONS MAY BE IN RES- 
DENT OR ON MASS STORAGE AS PART OF THE JOB 
PROCESSOR. IF THE LATTER IS THE CASE, THEN 
IPR0C1 WILL BE REPORTED AS AN UNUSED MODULE AT 
THE END OF SYSTEM INITIALIZATION. 



ENT 


NIPROC 


EQU 


NIPROC(*) 


ADC 


INTERNAL INTERRUPT PROCESSOR 


SPF 


PRO-*-l PROTECT VIOL 


SPE 


CONVRT-*-l PARITY 


JMP* 
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SAN PPROC-*-l 
LDA SWTCH 
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' iin o 

RTJ+ SYFAIL 
PPROC LDA* ASAV 

JMP* (IP1) 
I PI ADC 

EQU PTYERR(*) 
CONVRT IIN 

* THE FOLLOWING CODE SHOULD BE IMPLEMENTED TO 

* TYPE OUT THE CORRECT P.E. ADDRESS WHEN 

* 1. THE P.E. WAS GENERATED WHEN P-REG WAS NOT EQ Y 

* 2. THE P.E. WAS GENERATED BY DSATRANSFER 
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CK FOR * CR 
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RAO* 


MIBX 
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LDQ* MIP 
RAO* MIBX 
RTJ- (MONIT) 
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AMIPRO ADC MI PRO 
JMP* MI16 



CLASS - VER 3.0 



SKIP IF NOT PRESENT 
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SET MIBX FLAG - RECOVER, MIPRO 
SCHEDULE PROCESSOR 

SYSTEM DIRECTORY ENTRY 



MI12 



RTJ- 
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NO PROCESSOR 
ERROR - JP05 
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JMP- (DISP) 



SET MI NOT BUSY 
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P00B1 
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P00B4 
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7FFF 
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X 
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X 
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FILE1 
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$ODFF 


ALVLST ADC 


LVLSTR 
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LEND 
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TERMINATED UNTIL THE JOB PROCESSOR IS 

REQUESTED AGAIN 

CORE SWAP IS NOT FORCED IN PART IF 

NOSWAP FLAG IS SET 
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POOBE 
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0C03 


POOCO 
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P00C2 
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54F4 


P00C4 
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P00C5 


0000 


POOCfi 
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P00C7 


6EEB 
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ODFE 


P00C9 
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POOCA 


1RF5 


POOCB 
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POOCD 


E0E9 
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POODO 
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P00D1 
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RELFLE 
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RELFL1 
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RELFL3 
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RAO* 

EIN 
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LDA* 

SAZ 
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RTJ- 
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LDA- 
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-1 
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RELFLO 
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RELFL3 
MI16 
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RELFL4 
RELPRT 
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SET MIB - LOCK OUT FOR MANUAL 
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1 IF ZERO, SKIP RELEASE 



-1 



RELEASE FILE 



ZERO FILE LOCATION 



ZERO JP IN-CORE SWITCH. 
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POOF 7 
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P00F8 
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RELPRT LDA- 


LOCORE 
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RELUP 


STA* 


RELUPA 
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(MONIT) 


ADC 
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ADC 


RELA 
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16 


JMP- 


(DISP) 


RELA RTJ- 


(MONIT) 


ADC 


$5800 


RELUPA ADC 





JMP* 


MI16 



SAVE ADR FOR RELEASE 
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RELEASE MIB AND EXIT 



PARTITION CORE RELEASE 
OF BACKGROUND 

REQ OF PART 16 AT CP>2 
WILL CAUSE PROTECT BITS 
TO BE SET, THEN PARTITION 

16 IS RELEASED FOR 
SYSTEM USE 



POOFA 


CCAO 


SIMPRO 


LDA* 


(MIP) 


POOFB 


9000 5245 




SUB 


=ARE 


POOFD 


0101 




SAZ 


SPR 


POOFE 


1813 




JMP* 


SLCK 


POOFF 


0C01 


SPR 


ENQ 


1 


P0100 


CE9A 




LDA* 


(MIP).Q 


P0101 


0F48 




ARS 


8 


P0102 


09AC 




INA 


-$53 


P0103 


011D 




SAN 


SLCK 


P0104 


C825 




LDA* 


S200BS 


P0105 


0101 




SAZ 


SPRO 


P0106 


189F 




JMP* 


MI12 


P0107 


6800 FF68 


SPRO 


STA 


MIBX 


P0109 


6800 FF65 




STA 


MIB 


P010B 


D81E 




RAO* 


S200BS 


P010C 


E88E 




LDQ* 


MIP 


P010D 


54F4 




RTJ- 


(MONIT) 


P010E 


2404 
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$2404 


P010F 


7FFF X 




ADC 


SIM200 


P0110 


14EA 




JMP- 


(DISP) 


P0111 
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SLCK 


LDA* 
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P0112 
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P0113 


09D0 
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SAZ 


G02 


P0115 
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MHO 
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G02 


LDA* 
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200 USER TERMINAL SIMULATOR ROUTINE 
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TEST FOR FINAL S 



ZERO MI PERMISSIVE FLAGS 

SET 200UT BUSY FLAG 

PICKUP START OF MESSAGE ADDRESS 

SCHEDULE SIM200 

GET SIM200 

RETURN TO DISPATCHER 

NOT RES, SO TEST FOR SLASK (/) 
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onno 
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END 
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ALVLST 


00B8 




6/35 L 


7/45 


7/49 


8/05 








AMIPRO 


00A4 




5/57 


6/08 L 












ASTSKR 


004 F 




4/30 Q 


5/47 












6ATCH 


OOBO 




4/36 


6/26 L 












BATCLU 


007B 


*EXTERNAL* 


2/36 X 


5/25 












CCP 


0025 


♦EXTERNAL* 
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CHARSK 


002A 


ABSOLUTE 


2/50 Q 
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CREXTB 


00E9 


ABSOLUTE 


2/49 Q 


4/42 
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DISP 


OOEA 


ABSOLUTE 
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3/32 


4/54 


6/20 


8/23 


9/16 










3/04 
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5/13 


7/56 
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ERR 
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4/37 
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FILE1 
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2/33 X 
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Fl 
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6/30 L 


7/19 
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8/56 
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G020 


0119 




8/59 
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HICORE 


OOF 6 


ABSOLUTE 


2/55 Q 


7/47 












JBCNCL 


007E 


♦EXTERNAL* 


2/37 X 


5/28 












JORA 


0068 




4/46 


4/55 L 












JOBENT 


006E 


♦EXTERNAL* 


2/35 X 
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4/11 


5/17 L 


7/31 
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♦EXTERNAL* 
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♦EXTERNAL* 
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9/14 L 










LOCORE 


OOF 7 


ABSOLUTE 


2/48 Q 


8/09 












LPMSK 


0002 


ABSOLUTE 


2/46 Q 


3/45 












LVLSTR 


00B8 


♦EXTERNAL^ 


2/39 X 


6/35 












LVLSTV 


OOBB 




6/38 L 


7/46 


7/59 










MI 


0000 




2/17 E 


2/58 L 












MIB 


0070 




2/18 E 


2/58 


3/05 


5/15 L 


6/19 


7/16 


8/46 


MIBFAD 


0018 




3/15 


3/49 


4/17 


4/28 


5/19 


5/30 


5/46 








3/28 Q 


3/54 


4/18 


4/35 


5/20 


5/41 




MIBX 


0071 




2/19 E 


2/59 


5/16 L 


5/36 


5/50 


6/05 


8/45 


MIGO 


0004 




2/60 


3/05 L 












MI1NP 


009B 


♦EXTERNAL* 


2/25 X 


3/26 


5/55 










MINT 


0000 




2/10 E 


2/11 Q 












MIOIIT 


00B6 




3/11 


6/33 L 












MIP 


009B 




4/32 


5/35 


5/55 L 


8/33 


8/48 


9/12 










5/09 


5/45 


6/04 


8/38 


8/53 






MIPRO 


00A4 


♦EXTERNAL* 


2/38 X 


6/08 












Mil 


OOOE 




3/15 L 


3/18 












MHO 


009C 




5/57 L 


8/57 












MI12 


00A6 




4/10 


4/41 


5/49 


5/60 


6/11 L 


8/44 


8/60 


MI14 


00B4 




6/17 


6/31 1. 












MI16 


OOAP 




3/43 


5/29 


5/44 


6/09 


7/35 


8/27 










3/53 


5/40 


5/54 


6/18 L 


8/06 






MI2 


0012 




3/17 


3/20 L 












MI?A 


0024 




3/42 


3/44 L 












MI2AA 


001D 




3/31 


3/33 L 


3/35 










MI2AE 


0020 




3/34 


3/36 L 












MI2AX 


0021 




3/22 


3/42 L 












MI21 


0030 




3/46 


3/48 


3/54 L 










MI3 


0038 




3/57 


4/08 L 












MI31 


003C 




4/09 


4/11 1. 













o 



o 
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MI5 


0073 




4/13 


5/18 L 












MI5A 


0080 




5/23 


5/30 L 












MI5AA 


0079 




4/26 


5/24 L 












MI5B 


0086 




5/32 


5/35 L 












MI6 


008C 




4/22 


5/34 


5/41 L 










MIP 


0091 




5/43 


5/45 L 












MIPB 


0096 




4/33 


5/48 


5/50 L 










MONIT 


00F4 


ABSOLUTE 


2/45 Q 


3/29 


4/55 


5/37 


6/11 


8/13 


8/49 








3/06 


3/50 


5/10 


5/51 


7/22 


8/16 


9/13 








3/20 


4/47 


5/26 


6/06 


7/50 


8/24 




MORE 


0054 




4/35 L 


4/40 












NLA 


0048 




4/21 


4/23 L 












NLO 


004 D 




4/15 


4/27 Q 












RELA 


00F6 




8/18 


8/24 L 












RELFL 


00C5 




7/21 


7/24 L 












RELFLE 


OOBC 




2/20 E 


7/15 L 












RELFLO 


OOCO 




7/19 L 


7/29 












RELFL1 


00C8 




7/20 


7/27 L 












RELFL2 


OOCB 




7/28 


7/30 L 












RELFL3 


00D1 




7/34 


7/36 L 












RELFL4 


00D4 




7/37 


7/44 L 












RELPRT 


00E7 




7/38 


8/09 L 












RELSWP 


006A 




4/57 L 


7/60 












RELUP 


OOED 




8/11 


8/15 L 












RELUPA 


OOFS 




8/12 


8/26 L 












RESTOR 


0099 


♦EXTERNAL* 


2/40 X 


5/53 












RP 


0001 


ABSOLUTE 


2/54 q 


7/44 


7/51 


8/04 








SIMPRO 


OOFA 




3/58 


8/33 L 












S1M200 


011A 


♦EXTERNAL* 


2/29 X 


8/51 


9/04 










SJOB 


006B 




4/44 


4/49 


5/09 L 










SLCK 


0111 




8/36 


8/41 


8/53 L 










SPR 


oorF 




8/35 


8/37 L 












SPRO 


0107 




R/43 


8/45 L 












STH 


0037 




4/05 L 


4/14 


4/25 










SWAPON 


OOBA 


♦EXTERNAL* 


2/39 X 


6/37 












SWAPPD 


00E1 




7/52 


7/59 L 












SWTCH 


0037 


♦EXTERNAL* 


2/34 X 


4/05 












S200BS 


0129 




2/21 E 


4/08 


8/42 


8/47 


8/58 


9/18 L 




TIIR 


0015 




3/24 L 


3/33 












TSCNAC 


0029 


♦EXTERNAL* 


2/26 X 


3/47 












TSCNMI 


002E 


*EXTERNAL* 


2/28 X 


3/52 












Z 


0036 




4/04 L 


4/20 


5/22 










ZERO 


0022 


ABSOLUTE 


2/47 Q 


9/09 
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r~\ 



O ' o o 

1 

1 1700 ASSEMBLY OF LIN1V4 CLASS - VCR 3.0 08/21/80 00.19.57. PAGE 1 

STORAGE ALLOCATION. 

ADDRESS LENGTH BINARY CONTROL CARDS. 

0000 0038 NAM LIN1V4 DECK- ID Mil MSOS 5.0 SUMMAR 

0038 END 

ENTRY POINT NAMES AND ADDRESSES. 

INVINT -- 0033 LIN1V4 -- 0000 

EXTERNAL SYMBOLS. 
LN1TV4 
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NAM LIN1V4 DECK-ID Mil MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY-110 LIN1V4 2 

LIN1V4 3 

LIN1V4 4 

LIN1V4 5 



LIN1V4 



10 



15 



20 



25 



***************************************************** 

* LIN1V4 PROCESSES ONLY LINE 1 INTERRUPTS. 

* IF INTERRUPT IS LINE l.ALL DEVICE LISTED IN 

* LN1TV4 MILL BE CHECKED FOR INTERRUPT STATUS. 

* THE DRIVER CONTINUATOR FOR INTERRUPT DEVICE 

* WILL BE ENTER. IF NO DEVICE IN LN1TV4 HAS - 

* INTERRUPTED, A GHOST INTERRUPT MESSAGE IS 

* SCHEDULED, AND CONTROL IS RETURNED TO THE 

* DISPATCHER. 

* IF THE INTERRUPT IS NOT FROM LINE 1 A JUMP IS 

* MADE TO DEBUG CELL "N0TLN1"(SLS),LINE NUMBER 

* WILL BE IN "Q-'.lf STOP SWITCH IS NOT SET, 

* THE INTERRUPT WILL BE PROCESSED AS AN INVAL. INTERRUPT. 



INVALID INTERRUPTS WILL BE PROCESSED AS 
GHOST INTERRUPTS. 



LIN1V4 


9 


LIN1V4 


10 


LINIV4 


11 


LIN1V4 


12 


LIN1V4 


13 


LIN1V4 


14 


LIN1V4 


15 


LIN1V4 


16 


LIN1V4 


17 


LIN1V4 


18 


LIN1V4 


19 


LIN1V4 


20 


LIN1V4 


21 


LIN1V4 


23 


LIN1V4 


24 



30 



***************************************************** 



LIN1V4 



26 



35 



40 



45 



50 



55 







0000 P 




ENT 


LIN1V4 


LINE 1 INTERRUPT PROCESSOR 


*MSOS 


V4.0 


LIN1V4 


28 






0033 P 




ENT 


INVINT 


INVALID INTERRUPT PROCESSOR 


*MSOS 


V4.0 


LIN1V4 


29 










EXT 


LN1TV4 


TABLE OF LINE 1 DEVICES 


*MS0S 


V4.0 


LIN1V4 


31 






OOEA 




EQU 


DISP($EA) 








LIN1V4 


32 






0023 




EQU 


0NEBIT($23) 








LIN1V4 


33 






0002 




EQU 


LPMSK(2) 








LIN1V4 


34 


poono 


EOFF 




LIN1V4 


LDQ- 


I 


ENTRY I CONTAINS TRAP LOC. 


*MSOS 


V4.0 


LIN1V4 


36 


P0001 


0F22 






QRS 


2 




*MSOS 


V4.0 


LIN1V4 


37 


P0002 


OUBF 






INQ 


-$40 


Q CONTAINS INTERRUPT LINE 


*MSOS 


V4.0 


LIN1V4 


38 


P0003 


0814 






TRQ 


A 


NUMBER. 


*MSOS 


V4.0 


LIN1V4 


39 


P0004 


09FE 






INA 


-1 


CHECK FOR LINE 1 


*MSOS 


V4.0 


LIN1V4 


40 


P0005 


0101 






SAZ 


LNl-*-l 


SKIP IF LINE 1 INTERRUPT 


*MSOS 


V4.0 


LIN1V4 


41 


P0006 


1814 






JMP* 


N0TLN1 


LINE NUMBER IN "Q" 


*MSOS 


V4.0 


LIN1V4 


42 


pono7 


60FF 




LN1 


STA- 


I 




*MSOS 


V4. 


LIN1V4 


43 


P0008 


ED2F 




CHKDEV LDQ* 


(DEVTAB).I 


PHYTAB ADDRESS 


*MSOS 


V4.0 


LIN1V4 


44 


P0009 


01 7A 






SQM 


ENDT-*-l 


SKIP IF END OF TABLE 


*MSOS 


V4.0 


LIN1V4 


45 


POOOA 


0814 






TRQ 


A 




*MSOS 


V4.0 


LIN1V4 


46 


POOOB 


BOH 






EOR- 


LPMSK+15 


7FFF MASK 


*MSOS 


V4.0 


LIN1V4 


47 


POOOC 


0104 






SAZ 


CHKNXT-*-l 


SKIP IF DEVICE NOT PRESENT 


*MSOS 


V4.0 


LIN1V4 


48 


POOOD 


E207 






LDQ- 


7,Q 


HARDWARE ADDRESS 


*MSOS 


V4.0 


LIN1V4 


49 


poooe 


0203 






INP 


CHKNXT-* 


STATUS 


*MSOS 


V4.0 


LIN1V4 


50 


POO0F 


A025 






AND- 


ONEBIT+2 




*MSOS 


V4.0 


LIN1V4 


51 


P0010 


0115 






SAN 


GOTIT-*-l 


SKIP IF INTERRUPT STATUS 


*MSOS 


V4.0 


LIN1V4 


52 


POOH 


OBOO 




CHKNXT 


NOP 







*MSOS 


V4.0 


LIN1V4 


53 
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IS 



?0 



25 



30 



35 



40 



P0012 
P0013 
P0014 
POO] 5 
P0016 
POO] 7 
P0018 
P0019 



P001A 
P001B 
P001C 
P001D 



P001E 
P001F 
P0020 
P0021 
P0022 
P0023 
P0024 
POP25 
P0026 
P0027 
P0028 
P0029 
P002A 
P002B 
P002C 
P002D 
P002E 
P002F 
P0030 

P0031 
P0032 



P0033 
P0034 
P0035 
P0036 
P0037 
P0038 



DOFF 
18F4 
0C01 
1805 
El) 21 
C202 
60FF 
1522 



001A P 



54F4 
5204 
001E P 
14EA 



0814 

0D30 

09F5 

0131 

0D07 

F030 

480E 

C808 

AOOF 

8030 

6805 

54F4 

4C00 

0000 

0000 

18FC 

0002 

0031 P 

14EA 

4749 
0000 



EOFF 
0F22 
ODBF 
18E3 
7FFF X 



RAO- 
JMP* 

ENDT ENQ 
uMP* 

GOT IT LDQ* 
LDA- 
STA- 
JMP- 
EQU 

* 

SCDPRT RTJ- 
NUM 
ADC 
JMP- 



I 

CHKDEV 

1 

SCDPRT 

(DEVTAB).I 

2,Q 

I 

($22), I 

N0TLN1(*) 

($F4) 

$5204 
PRINT 
(DISP) 



INCREMENT INDEX 
CHECK NEXT DEVICE 
GHOST FROM LINE 1 

GET PHYTAB ADDRESS 
CONTINUATOR ADDRESS 

JUMP TO CONTINUATOR 
LINE 1 INT. RESP. WAS USED 
FOR INT. LINES 2-15, LINE NO. 



PRINT TRQ A 

INQ $30 

INA -$A 

SAM PRINT3-*-] 

IMQ 7 

PRINT3 ADQ- $30 
STQ* LN 
LDA* PRINT1 
AND- $F 
ADD- $30 
STA* PRINT1 
RTJ- ($F4) 
NUM $4COO,0,O 



PRINT1 NUM $18FC,$0002 

ADC GI 
JMP- (DISP) 

GI ALF l.GI 
LN NUM $0000 

** INVALID INTERRUPT ROUTINE 



PRINT ERROR MESSAGE -GI LINE NO. 



RECORD ASCII CODE FOR SPACE 
AND LINE NUMBER AT LN 





*MSOS 


V4.0 


LIN1V4 


54 




*MSOS 


V4.0 


I IN1V4 
LIN1V4 
LIN1V4 


55 
56 
57 




*MSOS 


V4.0 


LIN1V4 


58 




*MSOS 


V4.0 


LIN1V4 


59 




*MSOS 


V4.0 


LIN1V4 


60 




*MSOS 


V4.0 


LIN1V4 


61 




*MSOS 


V4.0 


LIN1V4 


62 


IS IN 


"Q" 




LIN1V4 


63 




*MSOS 


V4.0 


LIN1V4 


64 




*MSOS 


V4.0 


L1N1V4 


65 




*MSOS 


V4.0 


LIN1V4 


66 




*MSOS 


V4.0 


I.IN1V4 


67 


NO. 


*MSOS 


V4.0 


LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 
LIN1V4 


69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 




*MSOS 


V4.0 


LIN1V4 


81 



LIN1V4 



INVINT LDQ- I 
QRS 2 
INQ -$40 
JMP* SCDPRT 

DEVTAB ADC LN1TV4 
END 



57442B STORAGE USED 
6400 ASSEMBLY 



GET LINE NUMBER 

USE BALANCE OF LINE 1 GI PATH 
TABLE OF LINE 1 DEVICES 



95 STATEMENTS 
0.746 SECONDS 



82 







LIN1V4 


83 






LIN1V4 


84 






LIN1V4 


86 






LIN1V4 


87 






LIN1V4 


89 






L1N1V4 


90 




*MSOS V4.0 


LIN1V4 


91 




*MSOS V4.0 


LIN1V4 


92 




*MS0S V4.0 


LIN1V4 


93 


GI 


PATH *MS0S V4.0 


LIN1V4 


94 


S 


*MSOS V4.0 


LIN1V4 


95 






LIN1V4 


96 


19 


SYMBOLS 






48 


REFERENCES 
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LIN1V4 








COMPLETE 


REFERENCE MAP. 








CHKDEV 


0008 




2/50 L 


3/04 




CHKMXT 


0011 




2/54 


2/56 


2/59 L 


DEVTAB 


0037 




2/50 


3/07 


3/48 L 


MSP 


OOEA 


ABSOLUTE 


2/37 Q 


3/16 


3/37 


ENDT 


0014 




2/51 


3/05 L 




GI 


0031 




3/36 


3/39 L 




nor it 


0016 




2/58 


3/07 L 




I 


OOFF 


-SYSTEM- 


2/42 


2/49 


2/60 


INVINT 


0033 




2/33 E 


3/44 L 




LIN1V4 


0000 




2/32 E 


2/42 L 




LN 


0032 




3/25 


3/40 L 




LN1 


0007 




2/47 


2/49 L 




LN1TV4 


0037 


*EXTERNAL* 


2/36 X 


3/48 




LPMSK 


0002 


ABSOLUTE 


2/39 Q 


2/53 




N0TLN1 


P01A 




2/48 


3/11 Q 




ONEBIT 


0023 


ABSOLUTE 


2/38 Q 


2/57 




PRINT 


001E 




3/15 


3/19 L 




PRINT1 


002D 




3/26 


3/29 


3/34 L 


PRINT3 


0023 




3/22 


3/24 L 




SCDPRT 


001A 




3/06 


3/13 L 


3/47 
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PAGE 



ADDRESS 

0000 
024A 



LENGTH 
024A 



BINARY CONTROL CARDS. 



NAM 
END 



MIPRO 
MIPROC 



DECK- ID N06 MSOS 5.0 



SUMMAR 



ENTRY POINT NAMES AND ADDRESSES. 
MIPROC — 0000 



EXTERNAL SYMBOLS. 



CHRSFG 


EQ3644 


E15721 


INDACS 


ODEBUG 


SCMMLC 


TMCODE 


CRIMPT 


E10336 


E1573 


L0G1A 


010336 


SCMM17 


TMRTYP 


D15721 


E1572 


F10336 


MIBX 


01572 


SYSCOP 


TSUTIL 


EFLIST 


E1572F 


H15721 


ODBSIZ 


015721 


TDFUNC 


VERIFY 
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NAM MIPRO DECK-ID N06 MSOS 5.0 SUMMARY-110 MJPRU 2 

MANUAL INTERRUPT RESPONSE HANDLER FOR INPUTS OTHER THAN * MIPRO 3 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 MIPRO 4 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA MIPRO 5 

COPYRIGHT CONTROL DATA CORPORATION 1976 MIPRO 6 



15 



20 



**MSOS 4. 
**MSOS 4. 
**MSOS 
**MSOS 
**MSOS 



THE PROGRAM BASICALLY INVOLVES ENTRY FROM MINT (IN 

MONITOR) WHEN THE FIRST CHARACTER INPUT AFTER A MANUAL 
INTERRUPT IS NOT AN *. IF THE INPUT CHARACTER STRING 
IS MATCHED IN TABLE -FUNCTN-, THE REQUESTED ACTION IS 
TAKEN. IF THE ACTION INVOLVES STARTING OR STOPPING A 
TIMER AND A REJECT IS FOUND, THE MESSAGE -TIMER REJECT-**MSOS 
UNLINKED, OR THE INPUT IS OTHERWISE IN ERROR, THE **MSOS 
MESSAGE, -MI INPUT ERROR IS PRINTED. THE FOLLOWING **MSOS 
LIST OF INPUT CODES IS CONSIDERED BASIC TO THE PROGRAM. **MSOS 
ADDITIONS TO THIS LIST MAY BE MADE BY USERS AS REQUIRED**MSOS 



1** MIPRO 
1** MIPRO 
1** MIPRO 
1** MIPRO 
1** MIPRO 
1** MIPRO 
1** MIPRO 
1** MIPRO 
1** MIPRO 
1** MIPRO 



9 
10 
11 
12 
13 
14 
15 
16 
17 



25 



30 



35 



40 



INPUT 
=S 



FUNCTION 



**MSOS 4.1** MIPRO 



SCMM 



EF 



FOR SCHEDULING SYSTEM LIBRARY ORDINAL WITH **MSOS 4.1** MIPRO 
THE INPUT FORMAT =SXXX,Y,ZZZZ WHERE XXX IS**MSOS 4.1** MIPRO 
THE 3-DIGIT DECIMAL ORDINAL NUMBER (NUMBER**MSOS 4.1** MIPRO 
CORRESPONDS TO DIRECTORY POSITION), Y IS **MSOS 4.1** MIPRO 
THE HEX PRIORITY FOR EXECUTION, AND ZZZZ **MSOS 4.1** MIPRO 
IS A HEX PARAMETER PASSED TO THE PROGRAM **MSOS 4.1** MIPRO 
IN THE Q-REGISTER. **MSOS 4.1** MIPRO 

SCHEDULES ON-LINE SMALL COMPUTER MAINTENANCE**MSOS 4.1** MIPRO 
MONITOR (SCMM-17) LOADED UNDER ORDINAL **MSOS 4.1** MIPRO 
NAME SCMM17 **MSOS 4.1** MIPRO 



SCHEDULES ORDINAL EFLIST TO PRINT 
ENGINEERING FILE DATA FOR ALL LOGICAL 
UNITS 



**MSOS 4.1** MIPRO 
**MSOS 4.1** MIPRO 
**MSOS 4.1** MIPRO 



19 

21 
22 
23 
24 
25 
26 
27 

29 
30 
31 

33 
34 
35 



45 



50 



EFMM 



EFLU 



TON 



SCHEDULES ORDINAL EFLIST TO PRINT 

ENGINEERING FILE DATA FOR MASS MEMORY 
UNITS 

SCHEDULES ORDINAL EFLIST TO PRINT 
ENGINEERING FILE DATA FOR SPECIFIED 
LOGICAL UNIT 



**MSOS 4.1** MIPRO 
**MSOS 4.1** MIPRO 
**MSOS 4.1** MIPRO 

**MSOS 4.1** MIPRO 
**MSOS 4.1** MIPRO 
**MSOS 4.1** MIPRO 



STARTS SYSTEM HARDWARE TIME BASE AS DEFINED **MSOS 4.1** MIPRO 
IN SYSDAT **MSOS 4.1** MIPRO 



37 

38 
39 

41 
42 
43 

45 
46 



55 



TOFF 
SYSCOP 



STOPS SYSTEM HARDWARE TIME BASE AS DEFINED **MSOS 4.1** MIPRO 
IN SYSDAT **MSOS 4.1** MIPRO 



SCHEDULES SYSTEM CHECKOUT PACKAGE LOADED 
UNDER ORDINAL NAME SYSCOP 



**MSOS 4.1** MIPRO 
**MSOS 4.1** MIPRO 



48 
49 

51 
52 



o 



1 1700 ASSEMBLY OF MIPRO CLASS - VER 3.0 08/21/80 00.20.0?. PAGE 3 

* DB STARTS ON-LINE DEBUG PACKAGE, ODEBUG, LOADED**MSOS 4.]** MIPRO 54 

* UNDER ORDINAL NAME ODEBUG. **MSOS 4.1** MIPRO 55 
5 

* DX STOPS ON-LINE DEBUG PACKAGE BY CLEARING **MSOS 4.1** MIPRO 57 

* CHRSFG IN SYSDAT **MSOS 4.1** MIPRO 58 

• * DATE ALLOWS THE USER TO ENTER A NEW DATE AND **MSOS 4.1** MIPRO 60 

10 * TIME. ROUTINE IS A SUB-FUNCTION OF TDFUNC**MSOS 4.1** MIPRO 61 

* LOADED UNDER ORDINAL NAME TDFUNC. **MSOS 4.1** MIPRO 62 

* TIME CAUSES THE CURRENT DATE AND TIME TO BE **MSOS 4.1** MIPRO 64 

* PRINTED ON THE COMMENT UNIT. ROUTINE IS A**MSOS 4.1** MIPRO 65 
15 * SUB-FUNCTION OF TDFUNC LOADED UNDER **MSOS 4.1** MIPRO 66 

* ORDINAL NAME TDFUNC. **MSOS 4.1** MIPRO 67 



20 



* VERIFY SCHEDULES THE MSOS VERIFICATION PACKAGE LOADED MIPRO 69 

* UNDER ORDINAL NAME VERIFY. MIPRO 70 

* TSUT SCHEDULES THE TIMESHARE UTILITY PACKAGE **MSOS 4.1** MIPRO 72 

* LOADED UNDER ORDINAL NAME TSUTIL. THIS IS**MSOS 4.1** MIPRO 73 

* A PART OF THE TIMESHARE 1.0 PRODUCT. **MSOS 4.1** MIPRO 74 

25 * DACS SCHEDULES THE DATA ACQUISITION AND CONTROL **MSOS 4.1** MIPRO 76 
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• 566 


MIPRO 


567 


MIPRO 


568 


**MSOS 4.1** MIPRO 


569 


**MSOS 4.1** MIPRO 


570 


MIPRO 


571 
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MAG TAPE SIMULATOR WRITE RING PROCESSOR 

THIS ROUTINE ENABLES OR DISABLES THE WRITE RING ON THE 
SPECIFIED MAG TAPE SIMULATOR UNIT. 

THE LOGICAL UNIT SPECIFIED MUST CONTAIN 2 DIGITS 
EXAMPLE... WR0N.09 
WR0F.28 



P0167 
P0168 
P0169 
P016A 
POlfiB 
P016D 
P016E 
P016F 
P0170 
P0171 
P0172 
P0173 
P0174 
P0176 
P0177 
P0179 
P017A 
P017B 
P017I) 
P017F 
P01R1 
P0182 
P01P3 
P0184 
POlPfi 
P01P7 
P0189 
P018A 
P018B 
P018D 
P018E 
P018F 
P0190 
P0191 
P0192 
P0193 
P0194 
P0195 
P0196 
P01P7 
P0198 
P0199 
P019A 

P019B 



C032 
1802 
OAOO 
6831 
E800 
C202 
0FC8 
AOOA 
09D3 
0101 
1812 
C202 
5800 
0FC4 
6800 
C203 
0FC8 
5800 
8800 
5800 
0822 
09FE 
0123 
COOO 
1818 
9400 
0131 
18F9 
E600 
40FF 
C108 
0F44 
A009 
09C3 
0101 
18F0 
0500 
C10C 
A011 
BP04 
610C 
04 on 
1889 

0000 



WRNGON 

WRNGOF 
TAPSIM 



FEDF 



NOERR 



00A5 



00A1 



009E 
009B 
00A8 



0015 



0132 X 



0188 X 



TAPERR 
0KTAP1 

0KTAP2 



0KTAP3 



LDA- 

JMP* 

ENA 

STA* 

LDQ 

LDA- 

ALS 

AND- 

INA 

SAZ 

JMP* 

LDA- 

RTJ 

ALS 

STA 

LDA- 

ALS 

RTJ 

ADD 

RTJ 

TRA 

INA 

SAP 

LDA 

JMP* 

SUB+ 

SAM 

JMP* 

LDQ+ 

STQ- 

LDA- 

ARS 

AND- 

1NA 

SAZ 

JMP* 

UN 

LDA- 

AND- 

EOR* 

STA- 

EIN 

JMP* 



ONEBIT+15 

TAPSIM 



FLAGPS 

QSAVE 

2,Q 

8 

LPMSK+8 

-$2C 

NOERR 

TAPERR 

2,Q 

CK 

4 

HOLD 

3,0 

8 

CK 

HOLD 

DEOCT 

Q 
-1 

0KTAP1 

=XMSG3-REF 

STORIT 

L0G1A 

0KTAP2 

TAPERR 

L0G1A.Q 

I 

8,1 

4 

LPMSK+7 

-60 

0KTAP3 

TAPERR 



12,1 

LPMSK+15 

FLAGPS 

12,1 



MI DONE 



SET ON FLAG 
SET OFF FLAG 

ISOLATE FIELD SEPARATOR 

IS IT A COMMA 

GET FIRST DIGIT 
CONVERT TO HEX 
GET SECOND DIGIT 
CONVERT TO HEX 

IS THE LU NEGATIVE 
TO PRINT -TAPE SIM ERROR- 
IS THE LU TOO LARGE 
YES, ERROR 

SAVE THE PHYSTAB ADDRESS 
ISOLATE THE EQUIPMENT TYPE CODE 

IS IT A MAG TAPE SIMULATOR 

NO, ERROR 

GET THE HARDWARE STATUS WORD 
CLEAR THE WRITE RING BIT 
SET/CLEAR THE BIT 
RESTORE THE STATUS WORD 

EXIT 



FLAGPS NlIM 



MIPRO 


573 


MIPRO 


574 


MIPRO 


575 


MIPRO 


576 


MIPRO 


577 


MIPRO 


578 


MIPRO 


579 


MIPRO 


581 


MIPRO 


582 


MIPRO 


583 


MIPRO 


584 


MIPRO 


585 


MIPRO 


586 


MIPRO 


587 


MIPRO 


588 


MIPRO 


589 


MIPRO 


590 


MIPRO 


591 


MIPRO 


592 


MIPRO 


593 


MIPRO 


594 


MIPRO 


595 


MIPRO 


596 


MIPRO 


597 


MIPRO 


598 


MIPRO 


599 


MIPRO 


600 


MIPRO 


601 


MIPRO 


602 


MIPRO 


603 


MIPRO 


604 


MIPRO 


605 


MIPRO 


606 


MIPRO 


607 


MIPRO 


608 


MIPRO 


609 


MIPRO 


610 


MIPRO 


611 


MIPRO 


612 


MIPRO 


613 


MIPRO 


614 


MIPRO 


615 


MIPRO 


616 


MIPRO 


617 


MIPRO 


618 


MIPRO 


619 


MIPRO 


620 


MIPRO 


621 


MIPRO 


622 


MIPRO 


623 


MIPRO 


624 


MIPRO 


625 



1700 ASSEMBLY OF MIPRO CLASS - VER 3.0 08/21/80 00.20.04. PAGE 18 



6 CARDS DELETED MIPRO 627 



o 



o 



1700 ASSEMBLY OF MIPRO 



CLASS - VER 3.0 08/21/80 00.20.01. PAGE 19 



10 



15 



20 



25 



30 



35 



40 



P019C 


COOO 


P019E 


6807 


P019F 


54F4 


P01A0 


0033 


P01A1 


7F83 


P01A2 


0000 


P01A3 


18FC 


P01A4 


0007 


P01A5 


0000 


P01A6 


14EA 


P01A7 


4049 


P01A8 


2049 


P01A9 


4E50 


P01AA 


5554 


P01AB 


2045 


P01AC 


5252 


P01AD 


4F52 


P01AE 


5449 


P01AF 


4045 


P01B0 


5220 


PP1B1 


5245 


P01B2 


4A45 


P01B3 


4354 


P01B4 


2020 


P01B5 


5441 


POlBfi 


5045 


PP1B7 


2053 


PP1B8 


494D 


P01B9 


2045 


P01BA 


5252 


P01BB 


4F52 



ERROR EXIT 



0007 ERROR LOA =XMSG1-REF 
STORIT STA* MSGLOC 

RTJ- (AMONI) 
REF NUM $D33 

ADC M1D0NE-REF 

ADC 

ADC $18FC 

ADC 7 
MSGLOC ADC 

JMP- ($EA) 



TO PRINT -MI INPUT ERROR- 







MIPRO 


630 


**MSOS 


4.1** 


MIPRO 


632 


**MSOS 


4.1** 


MIPRO 


633 






MIPRO 


634 






MIPRO 


635 






MIPRO 


636 






MIPRO 


637 






MIPRO 


638 


**MSOS 


4.1** 


MIPRO 


639 


**MSOS 


4.1** 


MIPRO 


640 






MIPRO 


641 



MSG1 ALF 7.MI INPUT ERROR 



**MSOS 4.1** MIPRO 



MSG2 ALF" 7, TIMER REJECT 



**MSOS 4.1** MIPRO 



MSG3 ALF 7, TAPE SIM ERROR 



MIPRO 



643 



644 



645 



45 



50 



ON-LINE SCMM-17 HANDLER 



P01BC 


C400 


7FFF X 


SCMM 


LDA+ 


SCMMLC 


P01BE 


0112 






SAN 


Rl 


P01BF 


1800 


FF4A 




JMP 


GETIND 


P01C1 


6800 


FF60 


Rl 


STA 


CALL+1 


P01C3 


1800 


FF5C 




JMP 


SCHDRP 



CHECK FLAG IN SYSDAT 
SKIP IF SCMM NOW IN CORE 
FIRST TIME, SCHEDULE SCMM 



**MSOS 4.1** MIPRO 
MIPRO 


647 
648 


**MSOS 4.1** MIPRO 
MIPRO 


649 
650 


MIPRO 
MIPRO 


651 
652 



55 



INITIATE DEBUG PACKAGE 



P01C5 


00B8 X 


DBSYSD ADC ODEBUG 


REL. INCREMENT TO DEBUG ENTRY 


P01C6 


EOEB 


DB LDQ- $EB 


STORE CORRECT LENGTH 


P01C7 


F8FD 


ADQ* DBSYSD 


IN SYS. DIR. ENTRY 


P01C8 


COOO 7FFF X 


LOA =XODRSIZ 


CHANGE DIR. LENGTH 



IN SYS. DIR. 



MIPRO 



654 



MIPRO 


656 


MIPRO 


657 


MIPRO 


658 


MIPRO 


659 
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P01CA 


6625 




STA- (FOUR),Q 




P01CB 


C400 


7FFF X 


OBCKIT LDA+ CHRSFG 


IS DEBUG IN 


P01CD 


0101 




SAZ DBRQlT-*-l 


SKIP NO 


P01CE 


18CD 




JMP* ERROR 


PRINT ERROR MSG, 


POICF 


1800 


FF3A 


OBRQIT JMP GETIND 

* TURN OFF DEBUG PKG. 


SCHEDULE OBEDUG 


P01D1 


OAOO 




DX ENA 




P01D2 


6400 


01CC X 


STA+ CHRSFG 




P0104 


1800 


FF4E 


JMP MIDONE 
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660 


MIPRO 


661 


MIPRO 


662 


MIPRO 


663 


MIPRO 


664 


MIPRO 


665 


MIPRO 


666 


MIPRO 


667 


MIPRO 


668 
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o 
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PP1P6 


C201 




EQUALS 


; lpa- 


1,0 


PICKUP TWO DIGITS OF DIRECTORY NUI 


MBER 


MIPRO 


673 


P01D7 


4 OFF 






STQ- 


I 


SAVE BUFFER ADDRESS 




MIPRO 


674 


P01P8 


5842 






RTJ* 


CK 


CHECK AND CONVERT TO HEX 




MIPRO 


675 


P01P9 


6840 






STA* 


HOLD 


SAVE SECOND DIGIT 




MIPRO 


676 


P01PA 


C201 






LDA- 


l.Q 






MIPRO 


677 


P01DB 


0FC8 






ALS 


8 


DO SECOND DIGIT FIRST 




MIPRO 


678 


P01DC 


583E 






RTJ* 


CK 


NOW FIRST DIGIT 




MIPRO 


679 


P01PD 


0FC4 






ALS 


4 


X 16 




MIPRO 


680 


P01DE 


883B 






ADD* 


HOLD 


FORM COMPLETE DIRECTORY NUMBER 




MIPRO 


681 


P01DF 


0FC4 






ALS 


4 






MIPRO 


682 


P01E0 


6839 






STA* 


HOLD 






MIPRO 


683 


P01E1 


C202 






LDA- 


2,Q 






MIPRO 


684 


P01E2 


0FC8 






ALS 


8 


RIGHT JUSTIFY 3RD DIGIT 




MIPRO 


685 


P01E3 


5837 






RTJ* 


CK 






MIPRO 


686 


P01E4 


8835 






ADD* 


HOLD 






MIPRO 


687 


P01E5 


5843 






RTJ* 


DEOCT 


CONVERT FROM DECIMAL TO HEX 




MIPRO 


688 


P01E6 


09FE 






INA 


-1 


REFERENCE TO ZERO 




MIPRO 


689 


P01E7 


2005 






MUI- 


$5 


X 7 




MIPRO 


690 


P01E8 


80E7 






ADD- 


$E7 


ADDRESS OF 1ST MASS STORAGE ENTRY 




MIPRO 


691 


P01E9 


6800 


FF38 




STA 


CALL+1 


STORE SCHEDULER CALL 




MIPRO 


692 


P01EB 


A042 






AND- 


$42 


REMOVE BIT 15 




MIPRO 


693 


P01EC 


EOEB 






LDQ- 


$EB 




53*1069 


MIPRO 


694 


P01ED 


0832 






AAQ 


Q 




53*1069 


MIPRO 


695 


P01EE 


E204 






LDQ- 


4,Q 


CHECK FOR ZERO LENGTH ORDINAL 


53*1069 


MIPRO 


696 


P01EF 


0151 






SQN 


SPICI 


SKIP IF OK 


53*1069 


MIPRO 


697 


P01F0 


18AB 






JMP* 


ERROR 




**MSOS 4.1** 


' MIPRO 


698 


P01F1 


90E6 




SPICI 


SUB- 


$E6 


CHECK IF WITHIN LIMITS 


53*1069 


MIPRO 


699 


P01F2 


0131 






SAM 


SPIC2 


SK-P IF WITHIN LIMITS 




MIPRO 


700 


P01F3 


1PA8 






JMP* 


ERROR 


TO ERROR ROUTINE 


**MSOS 4.1** 


MIPRO 


701 








* 


SET 


PRIORITY 


LEVEL 




MIPRO 


703 


P01F4 


-C103 




SPIC2 


LDA- 


3,1 






MIPRO 


705 


P01F5 


0FC8 






ALS 


8 






MIPRO 


706 


P01F6 


5824 






RTJ* 


CK 






MIPRO 


707 


P01F7 


A006 






AND- 


LPMSK+4 


SCHEDULE PRIORITY/ 


**MSOS 4.1** 


' MIPRO 


708 


P01F8 


8000 


2400 




APD 


=N$2400 






MIPRO 


709 


P01FA 


6800 


FF26 




STA 


CALL 




**MSOS 4.1** 


MIPRO 


710 


- 






* 


CHECK FOR A PARAMETER TO PASS 




MIPRO 


712 


P01FC 


C103- 






LDA- 


3,1 






MIPRO 


714 


P01FD 


AOOA 






AND- 


$A 


FFMASK 




MIPRO 


715 


POIFE 


BOOO 


002C 




EOR 


=N$2C 


, 




MIPRO 


716 


P0200 


0102 






SAZ 


SPIC3 


SKIP IF NEXT CHARACTER COMMA 




MIPRO 


717 


P0201 


1800 


FF1E 




JMP 


SCHDRP 


SCHEDL. REQSED. PROGR. 




MIPRO 


718 


P0203 


C104 




SPIC3 


LDA- 


4,1 






MIPRO 


719 


PO204 


0FC8 






ALS 


8 






MIPRO 


720 


P0205 


5815 






RTJ* 


CK 






MIPRO 


721 


P020fi 


0FC4 






ALS 


4 






MIPRO 


722 


P0207 


6812 






STA* 


HOLD 


SAVE DIGIT 1 




MIPRO 


723 


P0208 


C104 






I.DA- 


4,1 






MIPRO 


724 
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P0209 
P020A 
P020B 
P020C 
P020D 
P020E 
P020F 
P0210 
P0211 
P0212 
P0213 
P0214 

P0215 
P0216 



P0217 
P0219 



P021A 
P021R 
P021C 
P021D 
P021E 
P021F 
P0220 
P0221 
P0222 
P0223 
P0224 
P0225 
P0226 
P0228 
P0229 
P022A 
P022B 
P022C 
P0220 
P022E 
P022F 
P0230 
P0231 
P0232 
P0233 
P0234 
P0235 
P023fi 
P0237 
P0238 
P0239 
P023A 
P023B 
P023C 



5811 
880F 
0FC4 
680D 
C105 
0FC8 
580B 
8809 
0FC4 
6807 
C105 
5806 

B804 
0822 



1P00 
0000 



RTJ* CK 
ADD* HOLD 
ALS 4 
STA* HOLD 
LDA- 5,1 
ALS 8 
RTJ* CK 
ADD* HOLD 
ALS 4 
STA* HOLD • 
LDA- 5,1 
RTJ* CK 
THIS INSTRUCTION ORS IN CASE OF NEGATIVE ZERO IS PASSED 
EOR* HOLD FORM COMPLETE PARAMETER 
TRA PUT IN Q TO PASS 

SCHEDULE THE PROGRAM 



SAVE DIGITS 1 AND 2 



SAVE DIGITS 1,2 AND 3 



FF08 



JMP SCHDRP 
HOLD- 



SCHEDL. REQSED. PROGR. 
TEMPORARY STORAGE CELL 



INPUT DATA CHECK AND CONVERSION ROUTINE 



0000 

AOOA 

09CF 

0138 

09E8 

0126 

0906 

0122 

0907 

0122 

090A 

1CF4 

1800 FF74 

0000 

E01E 

0FF4 

481D 

B81A 

681A 

0105 

B817 

09F5 

0131 

18F3 

090A 

2046 

6814 

0844 

E811 

0FE4 

09F5 

0131 

18EA 

090A 



CK 




AND- 
INA 
SAM 
INA 
SAP 
INA 
SAP 
INA 
SAP 
ATHRUF INA 



ER 
DEOCT 





$A 

-$30 

ER-*-l 

-$17 

ER NOT 

ATHRUF 

7 

ER 

10 

(CK) 

ERROR 





FF MASK 

SKIP IF LESS THAN $30 



THRU $F 



DDEOCT 
ADF.OCT MUI 

STA 

CLR 

LDQ 

LLS 

INA 

SAM 

JMP* ER 
EDEOCT INA 10 



JMP* 

JMP 



LDQ- $1E 

LLS 20 

STQ* BAKER 

EOR* MINUS 

STA* ABLE 

SAZ ADEOCT-*-l 

EOR* MINUS • 

INA -10 

SAM DDEOCT 

ER 

10 

$46 

CHARLE 

A 

BAKER 

4 

-10 

EDEOCT 



JMP* 
INA 



DO NOT ALLOW ASCII 
CODES *3A THRU *40 
TO PASS THRU THIS 
ROUTINE 

ILLEGAL CHARACTER INPUT 

SET ALL THRU FLAG 

FIRST DIGIT TO A, REST TO Q 

SAVE REST 

CHECK FOR MINUS SIGN 

SET INDICATOR FOR LATER 

START TO CONVERT 

SET FIRST DIGIT BACK IF 

DO NOT ALLOW INPUT OF 

A THRU F TO THIS DECIMAL/HEX 

CONVERSION ROUTINE 

CONVERT THIS PART (TIMES 10) 

PUT NEW VALUE TO TEMP 

CLEAR A 

GET SAVED NEXT PORTION 

NEXT FOUR TO A 
DO NOT ALLOW INPUT OF 
A THRU F TO THIS DECIMAL/HEX 
CONVERSION ROUTINE 



MIPRO 


725 


MIPRO 


726 


MIPRO 


727 


MIPRO 


728 


MIPRO 


729 


MIPRO 


730 


MIPRO 


731 


MIPRO 


732 


MIPRO 


733 


MIPRO 


734 


MIPRO 


735 


MIPRO 


736 


MIPRO 


737 


*629 MIPRO 


738 


MIPRO 


739 


MIPRO 


741 


MIPRO 


743 


MIPRO 


744 


MIPRO 


746 


MIPRO 


748 


MIPRO 


749 


MIPRO 


750 


MIPRO 


751 


*629 MIPRO 


752 


*629 MIPRO 


753 


*629 MIPRO 


754 


MIPRO 


755 


MIPRO 


756 


MIPRO 


757 


MIPRO 


758 


MIPRO 


759 


MIPRO 


760 


MIPRO 


761 


MIPRO 


762 


TO Q MIPRO 


763 


MIPRO 


764 


MIPRO 


765 


MIPRO 


766 


MIPRO 


767 


NOT - MIPRO 


768 


MIPRO 


769 


MIPRO 


770 


MIPRO 


771 


MIPRO 


772 


S 10) MIPRO 


773 


MIPRO 


774 


MIPRO 


775 


MIPRO 


776 


MIPRO 


777 


MIPRO 


778 


MIPRO 


779 


MIPRO 


780 


MIPRO 


781 



o 



o 



o 
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P023D 


880C 


P023E 


4P0A 


P023F 


FOOE 


P0?40 


0141 


P0241 


1PF2 


P0242 


EP05 


P0243 


0151 


P0244 


0Pfi4 


P0245 


1CE2 


P0P46 


oonn 


P0247 


0000 


P0248 


0000 


P0249 


0000 



0000 P 



BOEOCT 



CDEOCT 

MINUS 

ABLE 

BAKER 

CHARLE 

MIPROC 



P024A 



ADO* CHARLE 

STQ* BAKER 

ADQ- $E 

SQZ BDEOCT-*-l 

JMP* ADEOCT 

LDQ* ABLE 

SQN COEOCT-*-l 

TCA A 

JMP* (PEOCT) 

NUM $D 





. 

EQU MIPROC(MIPRO) 

END MIPROC 



VER 3.0 08/21/80 00.20.04. 


PAGE 


23 


ADD THE PREVIOUS 


MI PRO 


782 


SAVE THE REST 


MIPRO 


783 


CHECK FOR DONE 


MIPRO 


784 


ZERO MEANS DONE 


MIPRO 


785 


GO BACK FOR ANOTHER TRY 


MIPRO 


786 


CHECK FOR MINUS SIGN 


MIPRO 


787 


ZERO IS MINUS 


MIPRO 


788 


COMPLEMENT THE ANSWER 


MIPRO 


789 


GO BACK HOME 


MIPRO 


790 


MINUS SIGN 


MIPRO 


791 




MIPRO 


792 




MIPRO 


793 




MIPRO 


794 




MIPRO 


795 




MIPRO 


796 



67772B STORAGE USED 
6400 ASSEMBLY 



795 STATEMENTS 
4.898 SECONDS 



130 SYMBOLS 
427 REFERENCES 



1700 ASSEMBLY OF MIPRO 
COMPLETE REFERENCE MAP. 



ABLE 

AOEOCT 

ADISP 

AMONI 

ATIIRUF 

BAKER 

BDEOCT 

CALL 

CDEOCT 

CHARLE 

CHAR2 

CMAR4 

CHRSFG 

CK 

CRrMPT 

OB 

OBCKIT 

DBRQIT 

PBSYSD 

OPEOCT 

PEOCT 

DX 

P15721 

EPEOCT 

EFLIST 

EQUALS 

EQ3644 

ER 

ERROR 

E10336 

E1572 

E1572F 

E15721 

E1573 

FINI 

FLAGPS 

FOUND 

FOUND? 

F0UNP3 

FOUR 

FUNCTN 

F10336 
GERROR 
GETERR 
GETINP 



0247 
0234 
OOEA 
00F4 
0224 
0248 
0242 
0122 
0245 
0249 
0019 
0031 
01U3 
021A 

0011 
01C6 
01CB 
01CF 
01C5 
0233 
0228 
01D1 
OOF 9 
023C 
00B6 
01D6 
0163 
0226 
019C 

01 5E 
0147 
00P6 
01 5A 
014B 
0040 
019B 
0034 
004B 
004A 
0025 
004E 

0105 
0048 
011A 
01 OB 



ABSOLUTE 
ABSOLUTE 



♦EXTERNAL' 



♦EXTERNAL* 



♦EXTERNAL* 
♦EXTERNAL* 
♦EXTERNAL* 



♦EXTERNAL* 
♦EXTERNAL^ 
♦EXTERNAL* 
♦EXTERNAL* 
♦EXTERNAL* 



ABSOLUTE 



♦EXTERNAL* 



GET1 0113 

GET2 011C 

HOLD 0219 

H15721 0156 *EXTERNAL* 

I OOFF -SYSTEM- 

IMPT 0011 

INPACS OOBC ♦EXTERNAL* 



22/44 
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NAM TMINT DECK-ID M06 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
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COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY-116 TMINT 132 1 

TMINT 3 

TMINT 4 

TMINT 5 
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0000 P 
0000 P 



MONITOR TIMER REQUEST PROCESSOR 
ENT TMINT 
EQU TMINT(*) 
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0045 P 
0000 P 
0000 P 
OOPE P 







00E8 
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0003 






0009 






0003 






0005 






00.06 






0007 






OOEA 






0023 






0002 






00F4 






00B4 






0022 






OOBE 






00B9 






0003 






OOOF 






0000 P 


POOOO 


0822 




P0001 


C108 




P0002 


0133 




P0003 


0A03 




P0004 


8103 




P0005 


6103 




P0006 


C622 




P0007 


0F49 




P0008 


A007 




P0009 


09F0 




POOOA 


0114 




POOOB 


C201 




POOOC 


B032 




pooon 


0822 





TR1X 



ENT TIMEUP ENTRY FOLLOWING TIMER INT. ACK. **MSOS 4.1* TMINT 

ENT T8 TIMER REQUEST PROCESSOR TMINT 

ENT T15 PART 1 TIMER REQUEST **MSOS 4.0 TMINT 

ENT TMRTHD TOP OF TIMER THREAD 116*4373 TMINT132 

EXT NSCHED NO. OF SCHEDULE CALLS DURING A TIMER INTERRUPT TMINT 

EXT T1MEC NO. OF TIMER INTERRUPTS * 1/10 - 1 TMINT 

EXT SYFAIL SITE FAIL LOCATED IN SYSDAT ($18FF) TMINT 



EQU CL0CK($E8) 

EQU PC(1),PT(?),PTIME(3) 



EQU RCSCHD(9) REQUEST CODE FOR SCHEDULER 
EQU VR(3),VPTR(5),VTPE(6),VTMP(7) 



EQU ADISP($EA),0NEBIT($23),LPMSK($2) 



EQU AM0NI($F4) 

EQU T0MPT($B4) TOP OF EMPTY STACK 

EQU ZER0($22),ACABS($BE),AREQXT($B9) 



TMINT 
TMINT 



TMINT 
TMINT 



TMINT 



EQU T8SIZE(3) 
EQU PU-WE4J5) 




TRA 
LDA 
SAM 
ENA 
ADD 
STA 
LDA 
ARS 



Q 

8,1 

TR1X 

T8SIZE 

VR,I 

VR.I 

(ZERO),Q 

9 

AND- LPMSK+5 . 
INA -P1TIME 
SAN TR1C 
LDA- PC,Q 
EOR- ONEBI7+15 
TRA Q 



LENGTH OF TIMER REQUEST 



TIMER REQUEST PROCESSOR 
SKIP IF INDIRECT REQUEST 

LENGTH OF CALLING SEQUENCE. 



CHECK FOR PART 1 TIMER REQUEST 



SKIP IF MOT PART 1 TIMER REQ ' 

SET BIT 15 OF COMPLETION IF RC=21 
SYSTEM DIRECTORY PART 1 
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13 
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14 
15 
16 

18 
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30 




TMINT 


31 
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32 


***MS0S4, 


.0 TMINT 


33 


***MS0S4. 


.0 TMINT 


34 
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35 
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36 
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37 


***MS0S4. 


.0 TMINT 


38 


***MS0S4, 


.0 TMINT 


39 


***MS0S4. 


.0 TMINT 


40 


***MS0S4, 


.0 TMINT 


41 


**MSOS 4. 


.0 TMINT 


42 


***MS0S4. 


.0 TMINT 
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***MS0S4. 


.0 TMINT 


44 


* *MS0S4. 


.0 TMINT 


45 
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P0013 
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POO) 5 

pnoifi 

P0017 
P001P 
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P001A 
P001B 
P001D 
P001E 
P0020 
P0021 
P0022 
P0023 
P0024 
P0026 
P0028 
P0029 
P002A 
P002B 
P002C 
P002E 
P002F 
P0030 
P0031 
PfW32 
P0033 
P0034 
P0035 
P0036 
P0037 
P0038 
P0039 
P003A 
P003B 
P003C 
P0030 
P003E 
P003F 
P0040 
P0041 
P0042 
P0043 

P0044 



180A 

C622 

A031 

0114 

C201 

0122- 

OP22 

1803 

C201 

54BE 

4107 

E105 

C622 

AOOO OOCO 

0102 

5400 7FFF X 

C4FF 

AOU 

64FF 

C622 

AOOO 400F 

8000 1200 

0500 

E0B4 

ODOO 

0152 

5400 

6622 

C202 

60B4 

4106 

C107 

6201 

E105 

C622 

OF44 

A004 

0822 

4107 

CA54 

E106 

6202 

0814 

E107 

6A4F 

E105 

C202 

E106 

6203 

14B9 



TR1C 



001F X 



JMP* 
RC=8 
LDA- 
AND- 
SAN 
LDA- 
SAP 
TRA 
JMP* 
NOTDIR LDA- 
TR1A RTJ- 
STQ- 
LDQ- 
LPA- 
ANO 
SAZ 
RTJ+ 
CLRB15 LDA- 
AND- 
STA- 
LDA- 
AND 
ADD 
UN 
LDQ- 
INQ 
SQN 
RTJ+ 
STA- 
LDA- 
STA- 
STQ- 
LDA- 
STA- 
LDQ- 
LDA- 
ARS 
AND- 
TRA 
STQ- 
LDA* 
LDQ- 
STA- 
TRQ 
LDQ- 
STA* 
LDQ- 
LDA- 
LDQ- 
STA- 



TR1A+1 
GO TO PARAME AND ABSOLUTIZE 



TR1B 



(ZEROj.Q 
0NEB1T+14 
NOTDIR 
PC.O 
NOTDIR 
Q 
TR1A+1 
PC.O 
(ACABS) 
VTMP.I 
VPTR.I 
(ZERO),Q 
=N$OOCO 
CI.RB15 
SYFAIL 

(I) 
LPMSK+15 

(I) 

(ZERO),Q 

=N$400F 

=XRCSCHD*$200 



TOMPT 



TRlB-*-l 

SYFAIL 

(ZERO).Q 

PT,Q 

TOMPT 

VTPE.I 

VTMP.I 

PC.Q 

VPTR.I 

(ZERO),0 

4 

LPMSK+2 

Q 

VTMP.I 

THREAD, Q 

VTPE.I 

PT.Q 

A 

VTMP.I 

THREAD, Q 

VPTR , I 

2,Q 

VTPE.I 

PTIME.Q 



CHECK FOR PART DIRECTORY CALL 
D BIT SET, NOT PART 



BIT 15 SET = DIRECTORY CALL 
DON"T ABSOLUTIZE DIRECTORY CALL 

ABSOLUTIZE CONPLETION ADDRESS 
ABSOLUTIZE COMPLETION ADDRESS. 



PICK UP USERS ORIGINAL "U" FIELD 
NO ERROR "U" .LT. 4 
ERROR "U" .GE. 4 - HANG 
CLEAR BIT 15 IN USERS Q-REG 



SAVE PL AND D BIT 



THREAD IS EMPTY, GO TO 
SCHEDULER STACK OVERFLOW -HANG 

REMOVE SLOT FROM EMPTY LIST 

SAVE ADDRESS OF EMPTY SLOT 



USE ONLY LOWER 2 BITS 



JMP- (AREQXT) 



THREAD TO IHREAD(D) 



GET USERS TIME 

FROM USERS CALLING SEQUENCE 

PUT TIME INTO SLOT. 
11 CARDS DELETED 
EXIT 
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P0045 


D0E8 


TIMEUP 


RAO- 


CLOCK 


P0046 


C400 7FFf 


: X 


LDA 


NSCIIED 


P004R 


683C 




STA* 


NUMSCM 


P0049 


OCOO 


■t, 


ENQ 





P004A 


4839 


NXT1IM STQ* 


TIMIDX 


P004B 


CA3E 




LDA* 


TIMCTR.Q 


P004C 


0133 




SAM 


EXIT-*-l 


P004P 


0103 




SAZ 


RESET-*-l 


P004E 


09FE 




INA 


-1 


P004F 


6A3A 




STA* 


TIMCTR.Q 


P0050 


14EA 


EXIT 


JMP- 


(ADISP) 


P0051 


CA34 


RESET 


LDA* 


RSTCTR.Q 


P0052 


6A3'/ 




STA* 


TIMCTR.Q 


P0053 


FOOO 008C 


: P 

* 


AOQ 


=XTHREAD-2 


P0055 


40FF 


CHKTIIR STQ- 


I 


P0056 


E102 


LOOP 


LDQ- 


PT.I 


PO057 


onon 




INQ 





P0P58 


0153 




SQN 


TDREQ-*-l 


P0059 


ER2A 




LOQ* 


TIMIDX 


P005A 


onoi 




I NO 


1 


P005B 


1PEE 




JMP* 


NXTTIM 


P005C 


C203 


TDREQ 


LDA- 


PTIME.Q 


P005D 


0103 




SAZ 


CHKSCH-*-l 


P005E 


09FE 




INA 


-1 


P005F 


6203 




STA- 


PTIME.Q 


P0060 


1RF4 


* 


JMP* 


CHKTIIR 


P0061 


C823 


CHKSCH 


LDA* 


NUMSCH 


P0062 


0119 




SAN 


SCHEDU-*-l 


P0063 


C820 


L0P1 


LDA* 


TIMIDX 


P0064 


0111 




SAN 


purcNi-*-i 


P0065 


18EF 


* 


JMP* 


CHKTHR 


P0066 


C202 


PUTCNT 


LDA- 


PT.Q 


P0067 


6102 




STA- 


PT.I 


P006R 


C826 




LDA* 


THREAD 


P0069 


6202 




STA- 


PT.Q 


P006A 


4824 




STQ* 


THREAD 


P006B 


1REA 


* 


JMP* 


LOOP 


P006C 


C201 


SCHEDU 


LDA- 


PC.Q 


P006P 


6807 




STA* 


CAI.L+1 


P006E 


C622 




LDA- 


(ZERO).Q 


P006F 


6804 




STA* 


CALL 


P0070 


OFFO 




LLS 


16 


P0071 


EOER 




LDQ- 


CLOCK 


P0072 


54F4 




RTJ- 


(AMONI) 


P0073 


0000 


CALL 


ADC 


0,0 


P0074 


0000 








P0075 


OFFO 




LLS 


16 
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INCREMENT CORE CLOCK 



SET NUMBER OF SCHEDULER CALLS ALLOWED/PERIOD 



CHECK NEXT TIME COUNTER 

ALL DONE, EXIT 

TIME COUNTER COUNTED DOWN, RESET 

DECREMENT TIME COUNTER AND EXIT 



RESET TIME COUNTER AND CHECK ITS THREAD 

CHECK THREAD FOR TIME DELAY REQUESTS 
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♦EXTERNAL^ 


2/34 X 


3/10 








CPSET 


004B 


♦EXTERNAL* 


2/35 X 


4/31 








LPMSK 


0002 


ABSOLUTE 


2/24 Q 


3/20 


3/46 






MONI 


0000 




2/17 E 


2/52 L 


2/56 


3/06 




MSECA 


002A 




3/37 


3/47 L 








NMONI 


0000 




2/12 E 


2/13 Q 








ONEBIT 


0023 


ABSOLUTE 


2/23 Q 


3/34 








PC 


0001 


ABSOLUTE 


2/41 Q 


3/07 








RCSCIID 


0009 


ABSOLUTE 


• 2/42 Q 


3/36 








RCTV 


002E 




2/17 E 


3/49 


3/57 L 






REPA 


0025 




3/19 


3/38 L 








REPA1 


00] 6 




3/18 


3/20 L 








REP1 


0028 




3/31 


3/45 L 








REOXT 


0042 




2/18 E 


4/21 L 








RJMP 


004A 




4/25 


4/29 


4/30 L 






TO 


002E 


♦EXTERNAL* 


2/36 X 


3/57 








Tl 


002F 


♦EXTERNAL* 


2/36 X 


3/58 








T10 


0038 


♦EXTERNAL* 


2/38 X 


4/10 








T12 


003A 


♦EXTERNAL* 


2/39 X 


4/12 








T]4 


003C 


♦EXTERNAL* 


2/39 X 


4/14 








T15 


0030 


♦EXTERNAL* 


2/39 X 


4/15 








T16 


003E 


♦EXTERNAL* 


2/40 X 


4/16 








T17 


003F 


♦EXTERNAL* 


2/40 X 


4/17 








TIP 


0040 


♦EXTERNAL* 


2/40 X 


4/18 








T19 


0041 


♦EXTERNAL^ 


2/40 X 


4/19 








T2 


0030 


♦EXTERNAL^ 


2/36 X 


3/59 








T4 


0032 


♦EXTERNAL* 


2/37 X 


4/04 








T6 


0034 


♦EXTERNAL* 


2/37 X 


4/06 








T8 


0036 


♦EXTERNAL^ 


2/38 X 


4/08 








T9 


0037 


♦EXTERNAL^ 


2/38 X 


4/09 








V 


OOOA 


ABSOLUTE 


2/32 Q 


2/55 








VCCP 


0009 


ABSOLUTE 


2/33 Q 


3/11 


4/21 






vin 


0008 


ABSOLUTE 


2/29 Q 


3/22 


3/39 






VPL 


0004 


ABSOLUTE 


2/31 Q 


3/17 


3/30 


3/40 




VPTR 


0005 


ABSOLUTE 


2/26 Q 


3/04 


3/23 






VR 


0003 


ABSOLUTE 


2/26 Q 


2/60 


3/14 


3/24 


4/24 


VTDS 


0006 


ABSOLUTE 


2/27 Q 


3/08 


3/27 






VTMP 


0007 


ABSOLUTE 


2/28 Q 


3/48 








ZERO 


0022 


ABSOLUTE 


2/23 Q 


3/15 


3/29 


3/35 


3/51 



PAGE 



o o 



1700 ASSEMBLY OF T16 CLASS - VER 3.0 08/21/80 00.20.08. PAGE 1 

STORAGE ALLOCATION. 

ADDRESS LENGTH BINARY CONTROL CAROS. 

0000 OOOB NAM T16 DECK- ID M04 MSOS 5.0 SUMMARY 

OOOB END 

ENTRY POINT NAMES AND ADDRESSES. 
T16 — 0000 

EXTERNAL SYMBOLS. 
ASC 



1700 ASSEMBLY OF T16 



CLASS - VER 3.0 08/21/80 00.20.08. 



PAGE 



0000 P 



10 



15 



NAM T16 DECK-ID M04 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



ENT T16 

EXT ASC 

THIS ROUTINE HANDLES INDIRECT REQUESTS FOR PART 1 

REQUESTS. IT IS ENTERED WITH THE FOLLOWING PARAMETERS 

A= PARAMETER LIST 



1= VOL I TALE STORAGE 



SUMMARY-110 T16 


2 


T16 


3 


T16 


4 


T16 


5 


T16 


7 


T16 


8 


T16 


9 


T16 


10 


T16 


11 


T16 


12 


T16 


13 


T16 


14 



20 



25 



0003 


EQU VR(3),V 


0005 




0008 




0006 


EQU VTDS(6) 


0001 


EQU PL1(1) 



T16 



T16 
T16 



16 



17 
18 



30 



35 



40 



ponoo 


0822 


POOOl 


C108 


PP002 


0134 


P0003 


0103 


P0004 


D103 


P0005 


0P04 


POO 06 


6108 


P0007 


C106 


PP008 


6105 


P0009 


1400 


popob 





T16 



T16A 



7FFF X 



TRA Q 
LDA- VID.I 
SAM T16A-*-l 
RAO- VR.I 
RAO- VR.I 
SET A 
STA- VID.I 
LDA- VTDS.I 
STA- VPTR.I 
JMP ASC 
END 



SAVE PARAMETER LIST ADDRESS IN Q 

CHECK IF THIS IS THE FIRST INDIRECT REQUEST 

SKIP IF SECOND INDIRECT REQUEST 

FIRST INDIRECT REQUEST 

UPDATE RETURN ADDRESS BY 2 

SET WORD 8 OF VOLITALE TO INDICATE IND. REQ. 

GET PARAMETER LIST ADDRESS FOR THE IND REQ 
SAVE IN WORD 5 OF VOLITILE 
GO PROCESS NEW REQUEST - GO BACK TO MONI 



T16 


20 


T16 


21 


T16 


22 


T16 


23 


T16 


24 


T16 


25 


T16 


26 


T16 


27 


T16 


28 


T16 


29 


T16 


30 



5634 2B STORAGE USED 
6400 ASSEMBLY 



29 STATEMENTS 
0.439 SECONDS 



8 SYMBOLS 
17 REFERENCES 



o 



o 



1700 ASSEMBLY OF T16 








COMPLETE REFERENCE MAP. 








ASC OOOA *EXTERNAL* 


2/10 X 


2/41 




PL1 0001 ABSOLUTE 


2/26 Q 






Tlfi 0000 


2/09 E 


2/32 L 




T16A 0007 


2/34 


2/39 L 




VID 0008 ABSOLUTE 


2/23 Q 


2/33 


2/38 


VPTR 0005 ABSOLUTE 


2/22 Q 


2/40 




VR 0003 ABSOLUTE 


2/22 Q 


2/35 


2/36 


VTDS 0006 ABSOLUTE 


2/25 Q 


2/39 





CLASS - VER 3.0 08/21/80 00.20.08. PAGE 



o 



r~\ 



1700 ASSEMBLY OF ALVOL 
STORAGE ALLOCATION. 



CLASS - VER 3.0 08/21/80 00.P0.08. PAGE 1 



ADDRESS LENGTH 



0000 
001 D 



001D 



BINARY CONTROL CARDS. 

NAM ALVOL DECK-ID M16 MSOS 5.0 
END 



SUMMARY 



ENTRY POINT NAMES AND ADDRESSES. 

ALVOL — 0000 VOLA — 0000 



VOLR 



0015 



EXTERNAL SYMBOLS. 

OVFVOL VOLEND 



1700 ASSEMBLY OF ALVOL 



CLASS - VER 3.0 08/21/80 00.20.09. 



PAGE 



NAM ALVOL DECK- ID M16 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY- 110 ALVOL 2 

ALVOL 3 

ALVOL 4 

ALVOL 5 



* VOLATILE STORAGE ALLOCATION AND RETURN 



in 



15 



20 



25 



30 



35 



40 



45 



50 



55 







0000 


P 




ENT 


ALVOL 








0000 


P 




EQU 


ALVOL(*) 








0000 


P 




ENT 


VOLA, VOLR 








0015 


P 




EXT 
EXT- 


VOLEND 
OVFVOL 








OOFO 






EQU 


V0LATL($F0),ZER0($22) 






0022 




+ 
















* 




VOLATILE STORAGE ALLOCATION 


POOOO 


0000 






VOLA 


000 i 







P0001 


44FO 








STQ- 


(VOLATL) 


SAVE Q IN VOLATILE 


P0002 


E000 


7FFF 


X 




LDQ 


=XVOLEND 




P0004 


0852 








TCQ 


Q 




P0005 


FOFO 








ADQ- 


VOLATL 




P0006 


FCF9 








ADQ* 


(VOLA) 




P0007 


0172 








SQM 


VOLAl-*-l 


TEST FOR OVERFLOW 


P0008 


1400 


7FFF 


X 




JMP+ 


OVFVOL 




POOOA 


EOFO 






VOLAl 


LDQ- 


VOLATL 




POOOB 


6201 








STA- 


VA.Q 


SAVE A IN (VA) 


POOOC 


COFF 








LDA- 


I 




POOOD 


6202 








STA- 


VI, Q 


SAVE I IN (VI) 


POOOE 


40FF 






* 
* 


STQ- 


I 

UPDATE ENTRY 


ADDRESS OF VOL. IN I 
POINT TO VOLATILE STORAGE 


POOOF 


FCFO 








ADQ* 


(VOLA) 




P0010 


40F0 






* 


STQ- 


VOLATL 


SET ENTRY POINT TO START 
OF NEXT VOL BLOCK 


pooh 


D8EE 








RAO* 


VOLA 




P0P12 


E4FF 








LDQ- 


(I) 


RESTORE A,Q CONTENTS 


pom 3 


C101 








LDA- 


l.I 




pnni4 


1CEB 






* 


JMP* 


(VOLA) 




POOl 5 


0000 






VOLR 


000 





RETURN VOLATILE 


ponifi 


EOFF 








LDQ- 


I 


LOC. OF VOL. RETURNED IN I 


POOl 7 


C202 








LDA- 


VI, Q 




POOl 8 


60FF 








STA- 


I 


RESTORE I 


P0019 


C201 








LDA- 


VA.Q 


RESTORE A 


P001A 


40F0 








STQ- 


VOLATL 


RESTORE POINTER TO VOL. 


pooin 


E622 








LDQ- 


(ZERO),Q 


RESTORE Q 


pnoic 


1CF8 








JMP* 


(VOLR) 





ALVOL 
ALVOL 
ALVOL 



ALVOL 



VOLATILE STORAGE ASSIGNMENT. 
ADDRESS OF VOLATILE ASSUMED IN I. 



7 

8 
9 

12 



0001 



EQU VA(1) 



USERS A SAVED AT VA 



*MSOS 4. 


.1** ALVOL 


13 




ALVOL 


14 




ALVOL 


15 




ALVOL 


16 




ALVOL 


17 




ALVOL 


18 




ALVOL 


19 




ALVOL 


20 




ALVOL 


21 




ALVOL 


22 




ALVOL 


23 




ALVOL 


24 




ALVOL 


25 




ALVOL 


26 




ALVOL 


27 




ALVOL 


28 




ALVOL 


29 




ALVOL 


30 




ALVOL 


31 




ALVOL 


32 




ALVOL 


33 




ALVOL 


34 




ALVOL 


35 




ALVOL 


36 




ALVOL 


37 




ALVOL 


38 




ALVOL 


39 




ALVOL 


40 




ALVOL 


41 




ALVOL 


42 




ALVOL 


43 




ALVOL 


44 




ALVOL 


-4B~ 




ALVOL 


46 




ALVOL 


47 




ALVOL 


48 




ALVOL 


49 




ALVOL 


50 




ALVOL 


51 




ALVOL 


52 




ALVOL 


53 




ALVOL 


54 




ALVOL 


55 



o 



r 



1 1700 ASSEMBLY OF ALVOL 



0002 EQU VI (2) 

POOW END 



o 








CLASS - VER 3.0 


08/21/80 00.20.09. 


PAGE 


3 


USERS I SAVED AT VI 




ALVOL 


56 






ALVOL 


57 



56745B STORAGE USED 56 STATEMENTS 10 SYMBOLS 

6400 ASSEMBLY 0.559 SECONDS 36 REFERENCES 



1700 ASSEMBLY OF AI.VOL 
COMPLETE REFERENCE MAP. 



CLASS - VER 3.0 08/21/80 00.20.09. 



PACE 



ALVOL 


0000 




2/10 E 


2/11 Q 










I 


OOFF 


-SYSTEM- 


2/33 


2/35 


2/43 


2/48 


2/50 




OVFVOL 


0009 


*EXTERNAL* 


2/17 X 


2/30 










VA 


0001 


ABSOLUTE 


2/32 


2/51 


2/59 Q 








VI 


0002 


ABSOLUTE 


2/34 


2/49 


2/60 Q 








VOLA 


0000 




2/14 E 


2/23 L 


2/28 


2/39 


2/42 


2/45 


VOLATL 


OOFO 


ABSOLUTE 


2/18 Q 


2/24 


2/27 


2/31 


2/40 


2/52 


V0I.A1 


OOOA 




2/29 


2/31 L 










VOLEND 


0003 


♦EXTERNAL* 


2/16 X 


2/25 










VOLR 


0015 




2/14 E 


2/47 L 


2/54 








ZERO 


0022 


ABSOLUTE 


2/18 Q 


2/53 











o 



n 



o 



o o 



1700 ASSEMBLY OF OFVOL CLASS - VER 3.0 08/21/80 00.20.09. PAGE 1 
STORAGE ALLOCATION. 

ADDRESS LENGTH BINARY CONTROL CARDS. 

0000 OOOD NAM OFVOL DECK-ID M15 MSOS 5.0 SUMMARY 

OOOD END 

ENTRY POINT NAMES AND ADDRESSES. 

OFVOL -- 0000 OVFVOL -- 0000 



EXTERNAL SYMBOLS. 
SYFAIL 



1700 ASSEMBLY OF OFVOL 



CLASS - VER 3.0 08/21/80 00.20.10. 



PAGE 



NAM OFVOL DECK-ID M15 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY-110 OFVOL 2 

OFVOL 3 

OFVOL 4 

OFVOL 5 



10 



0000 P 
0000 P 



VOLATILE STORAGE OVERFLOW 
ENT OFVOL 
EQU OFVOL (*) 



OFVOL 
OFVOL 
OFVOL 



15 



THIS PROGRAM IS ENTERRED WHEN VOLATILE STORAGE 
IS OVER SUBSCRIBED. 



OFVOL 
OFVOL 



12 
13 



20 



25 



30 







0000 P 


ENT 
EXT 


OVFVOL 
SYFAIL 


POOOO 


0841 




OVFVOL CLR 


M 


ponoi 


EOOO 


0091 


LDQ 


^Ntai 


P0003 


C02B 




(Td/u 


~$2b\) 


P0D04 


03FE 




OUT 


-I 


P0005 


EOOO 


0090 


LDQ 


=N$90 


P0007 


0A4F 




ENA 


$4F 


pooor 


03FE 




OUT 


-1 


P0009 


0A56 




ENA 


$56 \J 


POOOA 


03FE 




OUT 


-1 


POOOB 


5400 


7FFF X 


RTJ+ 


SYFAIL 


pooon 






END 





SITE FAIL LOCATED IN SYSDAT ($18FF) 



VOLATILE OVERFLOW - HANG 



■A 



W> 



1 (0 



OFVOL 
OFVOL 



OFVOL 
OFVOL 
OFVOL 
OFVOL 
OFVOL 
OFVOL 
OFVOL 
OFVOL 
OFVOL 
OFVOL 
OFVOL 



15 
16 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



56340B STORAGE USED 
6400 ASSEMBLY 



27 STATEMENTS 
0.419 SECONDS 



3 SYMBOLS 
6 REFERENCES 



o 



o 



1700 ASSEMBLY OF OFVOL 
COMPLETE REFERENCE MAP. 



CLASS - VER 3.0 08/21/80 00.20.10. 



PAGE 



OFVOL 


0000 




2/10 E 


2/11 Q 


OVFVOL 


0000 




2/18 E 


2/22 L 


SYFAIL 


OOOC 


♦EXTERNAL* 


2/19 X 


2/31 



o 



") o o 

1 1700 ASSEMBLY OF NDISP CLASS - VER 3.0 08/21/80 00.20.10. PAGE 1 

STORAGE ALLOCATION. 



ADDRESS 


LENGTH 


BINARY CONTROL CARDS. 




0000 


0128 


NAM NDISP DECK-ID M24 


MSOS 5.0 


0128 




END 





ENTRY POINT NAMES AND ADDRESSES. 



SUMMARY 



DISPXX — 0001 


SCIIEDU -- 004B 


T18 


— 004B 


T9 


— 004B 


NDISP — onoo 


SCHTOP — 0000 


T19 


— OOEl 







EXTERNAL SYMBOLS. 

CKTHRD K65C0R SAVLU SCHERR SCHLNG SCHSTK SYFAIL 



1700 ASSEMBLY OF NDISP 



CLASS - VER 3.0 08/21/80 00.20.11. 



PAGE 



NAM NDISP DECK-ID M24 MSOS 5.0 
NON-FORTRAN SCHEDULER/DISPATCHER 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY- 110 NDISP 


2 


NDISP 


3 


NDISP 


4 


NDISP 


5 


NDISP 


6 



10 



15 



20 



25 



30 



35 



40 



45 



50 



004B P 
0000 P 



004B 
0001 
0000 
004B 
00E1 



OOEF 
0OB4 
00B9 
00B8 
0104 
0009 

0012 

OOEB 
00B8 
00B7 
0002 
0012 
0022 
0023 
0033 
0003 
0004 
0005 
0006 
0007 
0001 
0002 
0003 
0001 
0002 
0003 
0004 
0005 



ENT SCHEDU, NDISP 



ENT T9,DISPXX,SCHT0P 



**MS0S 4.1** NDISP 



**MSOS 4.1** NDISP 



ENT T18 ***MS0S4.0 NDISP 

ENT T19 ***MS0S4.0 NDISP 

EXT K65C0R ENTRY IN PARTITION CORE DRIVER ***MS0S4.0 NDISP 

EXT SCHERR SCHEDULER ERROR ENTRY IN TRVEC **MSOS 4.0 NDISP 

EXT SYFAIL SITE FAIL LOCATED IN SYSDAT ($18FF) NDISP 



EXT SAVLU.CKTHRD.SCHSTK.SCHLNG 

EQU PRLVL($EF),T0MPT($B4),AREQXT($B9) 



EQU C0NT($B8),C0MEXT($104) 

EQU RCSCHD(9) 

EqU P1SCHD(18) SYS DIR REQ FROM PART 1 

EQU ASYSDR($EB) 

EQU C0UNT($B8),AMASKT($B7) 

EQU LPMSK($2),NZER0($1?),ZER0($22) 

EQU 0NEBIT($Z3),ZR0BIT($33) 

EQU VR(3),VPL(4),VPTR(5) 

EQU VTPE(6),VTMP(7) 

EQU PC(1),PT(2),PQ(3) 

EQU XA(1),XI(2),XR(3),XPL(4),XL(5) 



**MSOS 4.1** NDISP 
NDISP 



**MSOS 4.1** NDISP 



NDISP 



NDISP 



10 



11 
12 
13 
14 

15 
16 
17 



18 



NDISP 


19 


***MS0S4.0 NDISP 


20 


***MS0S4.0 NDISP 


21 


***MS0S4.0 NDISP 


22 


NDISP 


23 


NDISP 


24 



25 



NDISP 


26 


NDISP 


27 


NDISP 


28 


NDISP 


29 



30 



o 






o 



o 






1700 ASSEMBLY OF NDISP 



CLASS - VER 3.0 08/21/80 00.20.12. 



PAGE 



10 



IB 



?0 



25 



30 



35 



40 



45 



50 



55 



**************************************************************MSOS 4.1** NDISP 
* DISPATCHER SECTION 
**************************************************************MSOS 4.1** NDISP 



UPON COMPLETION OF A PROGRAM, THE DISPATCHER 
DETERMINES THE PROGRAM OF HIGHEST PRIORITY 

WAITING FOR EXECUTION. IT MAY EITHER BE IN THE 
INTERRUPT STACK OR THE SCHEDULER STACK. 



0000 P 



POOOO 


FFFF 


poom 


E0B8 


pono2 


ODFA 


P0003 


0500 


P0004 


C204 


P0P05 


0FC1 


POPOfi 


0F41 


P0007 


60EF 


P0008 


C8F7 


P0009 


0900 


POOOA 


0107 


POOOB 


CCF4 


POOOC 


A006 


POOOD 


0821 


POOOE 


90EF 


POOOF 


0102 


P0010 


0131 


POOH 


1812 


P0012 


C203 


P0013 


6C35 


P001 4 


C202 


P0015 


60FF 


P0016 


C204 


P0017 


A032 


P0018 


P1A0 


P001 9 


0102 


P001A 


0A10 


P001B 


8011 


P001C 


40B8 


P001D 


C201 


P001E 


EOEF 


P001F 


E6B7 


P0020 


0811 


P0021 


E4B8 


P0022 


0E04 


P0023 


080A 


P0024 


40EF 



EQU 
SCHTOP NUM 
DISPXX LDQ- 
INQ 
UN 
LDA- 
ALS 
ARS 
STA- 
LDA* 
INA 
SAZ 
LDA* 
AND- 
TRA 
SUB- 
SAZ 
SAM 
JMP* 



NDISP(*) 
$FFFF 
CONT 
-XL 


XPL.Q 
1 
1 

PRLVL 
SCHTOP 


RESINT-*-l 
(SCHTOP) 
LPMSK+4 
M 

PRLVL 

RESINT-*-l 
RESINT 
SCHSTC 



SCHEDULE STACK TOP 

AD J ST STACK 

REMOVE BIT 15 

IF SCHEDLER STACK IS 

EMPTY, CHECK INT. STACK 
LOAD FIRST WORD 
ISOLATE PRIORITY 
SAVE TEMP. IN M 



GO TO INTERRUPT STACK 
GO TO SCHEDULE STACK 
HIGHEST PROGRAM IS IN THE INTERRUPT STACK. 

SET RETRN LOCATION 
RESTORE I 



RESINT LDA- XR,Q 

STA* (ACOMEX) 
LDA- XI, Q 
STA- I 



RESA 



LDA- XPL.Q 
AND- ONEBIT+15 
SOV 
SAZ RESA 
ENA 16 
ADD- LPMSK+15 
STQ- CONT 
LDA- XA.Q 
LDQ- PRLVL 
LDQ- (AMASKT).Q 
TRQ M 
LDQ- (CONT) 
EX I COMEXT-256 



7-CARDS DELETED 
GET PL + OVF 

CLEAR OVERFLOW FAULT 



RESTORE TOP OF INTERRUPT STACK 
RESTORE VALUE OF A 
SET NEW PRIORITY LEVEL 
RESTORE MASK 



RESTORE Q 



HIGHEST PROGRAM IS IN THE SCEDULER THREAD. 



SCHSTC TRM 
STQ- 



Q 
PRLVL 



PRIORITY TO Q 
SET NEW PRIORITY 



**MSOS 4 


.1** 


NDISP 


32 


**MSOS 4, 


. 1** 


NDISP 


33 


**MSOS 4 


.1** 


NDISP 


34 






NDISP 


36 






NDISP 


37 






NDISP 


38 






NDISP 


39 






NDISP 


40 






NDISP 


41 


**MSOS 4, 


.1** 


NDISP 


42 






NDISP 


43 


***** 


NDISP 


44 






NDISP 


45 






NDISP 


46 






NDISP 


47 






NDISP 


48 






NDISP 


49 






NDISP 


50 






NDISP 


51 






NDISP 


52 






NDISP 


53 






NDISP 


54 






NDISP 


55 






NDISP 


56 






NDISP 


57 






NDISP 


58 


**MSOS 


4.0 


NDISP 


59 


**MSOS 


4.0 


NDISP 


60 






NDISP 


61 






NDISP 


62 






NDISP 


63 






NDISP 


64 






NDISP 


65 






NDISP 


66 






NDISP 


67 






NDISP 


68 


**MSOS 


4.0 


NDISP 


69 


**MSOS 


4.0 


NDISP 


70 


**MSOS 


4.0 


NDISP 


71 


**MSOS 


4.0 


NDISP 


72 


**MSOS 


4.0 NDISP 


73 


**MSOS 


4.0 


NDISP 


74 


**MSOS 


4.0 


NDISP 


75 


**MSOS 


4.0 


NDISP 


76 






NDISP 


77 






NDISP 


78 
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AND- 


ONEBIT+8 


FOR REL AND ABS MODE 


P01P8 


0101 




SAZ 


S6-*-l 




P0I09 


0814 




TRQ 


A 




P010A 


A011 


S6 


AND- 


LPMSK+15 


15 BIT ARITHMETIC 


P010B 


8032 




ADD- 


ONEBIT+15 




P010C 


8107 




ADD- 


VTMP.I 




P010D 


A011 




AND- 


LPMSK+15 




P010E 


0500 


S6B1 


IIN 







P010F 


6817 


* 


STA* 


JMP+1 


1 CARD DELETED 


P0110 


4817 


* 


STQ* 


PASSA 


LOC OF PARAMETER LIST 






* 
* 




PUT RQUESTOR 


ON INTERRUPT STACK 


P0111 


E0B8 




LDQ- 


COUNT 




P0112 


COEF 




LDA- 


PRLVL 




P0113 


6204 




STA- 


XPL.Q 


SAVE PRESENT LEVEL 


P0114 


C0B9 




LDA- 


AREQXT 




P0115 


6203 




STA- 


XR.Q 




P0116 


COFF 




LOA- 


I 




P0117 


6202 




STA- 


XI, Q 


SAVE I 


P0118 


0005 




INQ 


XL 




P0119 


40B8 




STQ- 


COUNT 


SET NEW BASE 


P011A 


E104 




LDQ- 


VPL.I 




PP11B 


40EF 




STQ- 


PRLVL 




P011C 


C6B7 




LDA- 


(AMASKT).Q 


SET NEW LEVEL AND 


POUD 


0821 




TRA 


M 


MASK 


P011E 


E4FF 




LDQ- 


(I) 


625 


P011F 


0814 




TRQ 


A 


625 


P0120 


A011 




AND- 


LPMSK+15 


MASK OFF UPPER BIT 


P0121 


64FF 




STA- 


(I) 


624 


P0122 


C805 




LPA* 


PASSA 


624 


P01?3 


01A0 




SOV 





TURN OFF OVERFLOW IND. 


P0124 


0400 




EIN 







P01P5 


1400 0000 JMP 


JMP+ 





GO 


P0127 


0000 


PASSA 


NUM 







P01?8 






END 









NDISP 


347 




NUISP 


348 




NDISP 


349 




NDISP 


350 




NDISP 


351 




NDISP 


352 




NDISP 


353 




NDISP 


354 


***MS0S4.0 


NDISP 


355 




NDISP 


356 




NDISP 


357 




NDISP 


358 




NDISP 


359 


**MS0S 4.1** 


NDISP 


360 


***MS0S4.0 


NDISP 


361 


***MS0S4.0 


NDISP 


362 


**MSOS 4.1** 


NDISP 


363 


***MS0S4.0 


NDISP 


364 


**MS0S 4.1** 


NDISP 


365 




NDISP 


366 




NDISP 


367 




NDISP 


368 




NDISP 


369 




NDISP 


370 


**MSOS 4.1** 


NDISP 


371 




NDISP 


372 


***MS0S4.0 


NDISP 


373 




NDISP 


374 




NO ISP 


375 




NDISP 


376 




NDISP 


377 




NDISP 


378 




NDISP 


379 




NDISP 


380 




NDISP 


381 




NDISP 


382 




NDISP 


383 




NDISP 


384 




NDISP 


385 




NDISP 


386 




NDISP 


387 




NDISP 


388 




NDISP 


389 




NDISP 


390 




NDISP 


391 




NDISP 


392 




NDISP 


393 




NDISP 


394 


624 


NDISP 


395 




NDISP 


396 




NDISP 


397 




NDISP 


398 




NDISP 


399 




NDISP 


400 




NDISP 


401 




NDISP 


402 



o 



o o 
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ABS 


00 7C 




6/07 


6/10 


6/19 L 










ACOMEX 


0048 




3/38 


4/17 


4/32 


4/38 L 








AMASKT 


00B7 


ABSOLUTE 


2/32 Q 


3/51 


3/60 


10/48 








AREQXT 


00B9 


ABSOLUTE 


2/23 Q 


7/13 


9/21 


9/33 


10/40 






ASCHD 


0049 




4/09 


4/39 I. 












ASCLNG 


004A 




4/11 


4/40 L 












ASYSDR 


OOEB 


ABSOLUTE 


2/31 Q 


7/19 


9/17 


9/26 








CKTHRD 


00D2 


♦EXTERNAL* 


2/21 X 


8/10 












COMEXT 


0104 


ABSOLUTE 


2/25 


3/54 


4/37 


4/38 








CONT 


00B8 


ABSOLUTE 


2/25 Q 


3/17 


3/48 


3/53 








COUNT 


00B8 


ABSOLUTE 


2/32 Q 


10/37 


10/45 










DIRCAL 


00A7 




5/45 


7/18 L 












DIR1 


00B9 




7/33 


7/35 L 












DIR1A 


OOBD 




7/36 


7/40 L 












DIR2 


00B4 




7/26 


7/28 


7/31 L 










DISCU 


OOEF 




9/15 


9/25 L 












DISPXX 


0001 




2/13 E 


3/17 L 












ENSCH 


00E6 




9/10 


9/13 L 












HILVL 


OOF 8 




5/49 


7/60 


10/08 L 










I 


OOFF 


-SYSTEM- 


3/40 


6/31 


7/10 


7/12 


8/08 


10/42 


10/50 10/53 


JMP 


0125 




10/31 


10/57 L 












K6!">C0R 


OODD 


*EXTERNAL* 


2/18 X 


8/19 












LPMSK 


0002 


ABSOLUTE 


2/34 Q 


4/28 


5/36 


6/17 


7/18 


9/14 


10/12 10/52 








3/28 


4/31 


5/52 


6/51 


7/24 


9/19 


10/26 








3/47 


5/32 


6/14 


7/11 


7/44 


9/29 


10/29 


MASCAL 


OOCF 




7/45 


8/08 L 












MASCO 


OODE 




8/18 


8/20 L 












NDISP 


0000 




2/10 E 


3/15 Q 












NZERO 


0012 


ABSOLUTE 


2/34 Q 


7/40 












ONEBIT 


0023 


ABSOLUTE 


2/37 Q 


4/20 


4/29 


6/06 


6/15 


9/31 


10/23 








3/43 


4/25 


5/42 


6/09 


8/17 


10/18 


10/27 


PASSA 


0127 




10/33 


10/54 


10/58 L 










PC 


0001 


ABSOLUTE 


2/44 Q 


4/16 


4/22 


4/30 


6/30 


7/58 


9/16 9/25 


PQ 


0003 


ABSOLUTE 


2/45 


4/36 


6/32 










PRIMRY 


0101 




10/14 


10/17 L 












PRLVL 


OOEF 


ABSOLUTE 


2/22 Q 
3/23 


3/30 
3/50 


3/59 
5/46 


7/53 
10/38 


10/47 






PT 


0002 


ABSOLUTE 


-2/44 Q 


4/14 


6/24 


6/60 


7/09 


7/51 










4/06 


4/34 


6/44 


7/06 


7/30 


10/16 




P1SCHD 


0012 


ABSOLUTE 


2/29 


5/37 


7/27 










RCSCIIP 


0009 


ABSOLUTE 


2/27 Q 


5/53 


7/25 


7/27 


10/13 






RESA 


001C 




3/45 


3/48 L 












RESINT 


0012 




3/26 


3/31 


3/32 


3/37 L 








SAVLU 


OOEO 


♦EXTERNAL* 


2/21 X 


8/21 












SCHA 


003A 




4/21 


4/24 L 












SCHEOU 


004 B 




2/10 E 


5/21 Q 












SCHED2 


0009 




5/56 


6/31 L 


8/04 










SCHERR 


OOBC 


♦EXTERNAL* 


2/19 X 


7/34 


7/37 










SCHLNG 


004A 


♦EXTERNAL* 


2/21 X • 


4/40 












SCHSEC 


0035 




4/10 


4/12 


4/19 L 










SCHSTC 


0023 




3/33 


3/58 L 












SCIISTK 


0049 


♦EXTERNAL* 


2/21 X 


4/39 












SCHTOP 


0000 




2/14 E 


3/16 L 


3/24 


3/27 


4/05 


4/07 


6/38 


SCHXIT 


0045 




4/18 


4/35 L 












SCH1 


003E 




4/26 


4/28 L 












SCH1A 


0042 




4/23 


4/32 L 












SCH1X 


0050 




5/25 


5/28 L 













n 



O 



c 
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SCH? 


006E 




5/54 


6/05 L 










SP1 


0060 




5/38 


5/44 L 










SYFAIL 


0081 


'EXTERNAL* 


2/20 X 


6/23 










SI 


0062 




5/40 


5/43 


5/46 L 








S2 


0067 




5/48 


5/50 L 










S3 


0082 




6/22 


6/24 L 










S5 


OOCE 




7/55 


8/04 L 










S6 


01 OA 




10/24 


10/26 L 










S6A 


0106 




10/19 


10/22 L 










S6B1 


010E 




10/21 


10/30 L 










THREAD 


009C 




6/46 


6/53 


6/59 L 








THRED1 


008F 




6/40 L 


6/54 










TOMPT 


O0B4 


ABSOLUTE 


2/22 q 


4/13 


4/15 


6/20 


6/25 




T18 


004B 




2/16 E 


5/20 Q 










T19 


00E1 




2/17 E 


9/07 Q 










T9 


004B 




2/13 E 


5/23 L 










VPL 


0004 


ABSOLUTE 


2/39 Q 


5/33 


6/52 


7/54 


8/11 


10/46 








5/30 


5/47' 


7/41 


8/09 


8/15 




VPTR 


0005 


ABSOLUTE 


2/40 Q 


6/26 


7/04 


7/21 


7/31 


10/08 


VR 


0003 


ABSOLUTE 


2/39 Q 


5/26 


5/27 


9/11 


9/12 




VTMP 


0007 


ABSOLUTE 


2/42 Q 


5/39 


6/16 


6/29 


10/20 










5/29 


5/44 


6/18 


7/59 


10/28 




VTPE 


0006 


ABSOLUTE 


2/42 Q 


5/34 


6/05 


6/12 


6/59 


10/17 








5/28 


5/41 


6/08 


6/27 


7/08 


10/22 








5/31 


5/50 


6/11 


6/41 


7/57 




XA 


0001 


ABSOLUTE 


2/47 Q 


3/49 










XI 


0002 


ABSOLUTE 


2/47 


3/39 


10/43 








XL 


0005 


ABSOLUTE 


2/50 Q 


3/18 


10/44 








XPL 


0004 


ABSOLUTE 


2/49 Q 


3/20 


3/42 


10/39 






XR 


0003 


ABSOLUTE 


2/48 Q 


3/37 


10/41 








ZERO 


0022 


ABSOLUTE 


2/35 Q 


6/28 


7/35 


8/13 


9/18 


9/32 








4/19 


6/50 


7/42 


8/16 


9/20 


10/10 








4/24 


7/22 


7/56 


9/13 


9/27 




ZROBIT 


0033 


ABSOLUTE 


2/37 Q 
















o 
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STORAGE ALLOCATION. 

ADDRESS LENGTH BINARY CONTROL CARDS. 

0000 OOAE NAM RW DECK- ID M09 MSOS 5.0 SUMMARY 

OOAE END 

ENTRY POINT NAMES AND ADDRESSES. 



CKTHRD -- OOPE 


SAVLU 


— 0012 


T2 


— 0000 


RPMASK — 0088 


TO 


— 0000 


T4 


— 0000 


RW — 0000 


Tl 


— 0000 


Tfi 


— 0000 



EXTERNAL SYMBOLS. 

ALTSUB CONVER L0G1 L0G1A L0G2 



1700 ASSEMBLY OF RW 



CLASS - VER 3.0 08/21/80 00.20.14. 



PAGE 



NAM RW DECK-ID M09 MSOS 5.0 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY-110 RW 
RW 
RW 
RW 



10 



0000 P 
0000 P 



READ WRITE REQUEST PROCESSOR 
ENT RW 
EQU RW(*) 



RW 
RW 
RW 



15 



20 



25 



30 



35 



40 



45 



50 



55 



0000 
0000 
0000 
0000 
0000 
0012 
008E 
0088 



002F 
0003 
0004 
0005 
0006 
0007 
0008 
00C2 
OOBC 
00B9 
0002 
0005 
00F4 
0005 
0008 
0012 
0022 
0002 
0023 
0002 



POOOO 
P0001 
P0002 

P0003 
P0004 
P0005 

P0006 



0822 
C108 
0133 

0A06 
8103 
6103 

C622 



Tl 



Rl 



ENT T0,T1,T2,T4,T6 



ENT SAVLU.CKTHRD.RPMASK 



EXT L0G2,L0G1,L0G1A 

EXT ALTSUB SUB. TO SET Q=ALT. IF LU IN Q IS DOWN 

EXT CONVER 

EQU H1000($2F) 

EQU VR(3),VPL(4),VPTR(5) 



EQU VTPE(6),VTMP(7) 

EQU VID(8) 

EQU LIBLU($C2) 

EQU ALUABS($BC),AREQXT($B9) 

EQU PT(2),PS(5) 

EQU AM0NI($F4) 

EQU ELU(5),EREQST(8) 

EQU NZER0($12) 

EQU ZER0($22) 

EQU LPMSK(2),0NEBIT($23) 

EQU MMC0DE(2) M.M. CLASS CODE 

ON ENTRY A, Q, AND I CONTAIN THE FOLLOWING 
A, PARAMETER LIST LOCATION 
Q, PARAMETER GIVING 

ADDRESS OF PROCESSOR 
I, ADDRESS OF VOLATILE 

TRA Q PARAMETER LIST TO Q 

LDA- 8,1 

SAM Rl-*-l SKIP IF INDIRECT REQUEST 

INCREMENT RETURN ADDRESS 
ENA 6 
ADD- VR.I 
STA- VR.I 

SET UP PRIORITY LEVEL OF THE REQUEST 
LDA- (ZERO),Q 



RW 



RW 



RW 



12 



13 



RW 


14 


RW 


15 


RW 


16 


RW 


17 


RW 


18 



19 



**MSOS 4.0 RW 


20 


RW 


21 


RW 


22 


RW 


23 


RW 


24 


RW 


25 


RW 


26 


RW 


27 


RW 


28 


RW 


29 


RW 


30 


RW 


31 


RW 


32 


RW 


33 


RW 


34 


RW 


35 


RW 


36 


**MSOS 4.0 RW 


37 


**MSOS 4.0 RW 


38 


RW 


39 


RW 


40 


RW 


41 


RW 


42 


RW 


43 


RW 


44 



o 
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P0007 


A800 


0080 


P0009 


6104 




P000A 


C107 




POOOB 


0400 




POOOC 


0112 




POOOD 


E0C2 




POOOE 


1804 




POOOF 


5800 


007E 


pooh 


54BC 




P0012 


4107 





AND RPMASK 
STA- VPL.I 



POO] 3 
P0014 



GET LOGICAL UNIT NUMBER IN Q 



LDA- VTMP.I 
EIN 

SAN RWUSER-*-l 
LDQ- LIBLU 
JMP* SAVLU 

RWUSER RTJ CKTHRD 
RTJ- (ALUABS) 

SAVLU STQ- VTMP.I 



IF THIS IS SYS DIR 

CHECK THREAD LOC FOR 

SAVE LOGICAL UNIT NUMBER. 



Q CONTAINS THE ACTUAL LOGICAL UNIT NUMBER. 
IF CALL WAS DIRECT. 



EE34 
C20R 



LDQ* 
LDA- 



(AL0G1A),Q 
8,Q 



IF CALL IS TO MASS 
MEMMORY AND S15 IS ZERO 
AND IF REQ. IS NOT 
INDIRECT, THEN ADD 2 
TO THE RETURN 



P001 5 


E108 


P0016 


0FC5 


POO] 7 


A005 


P0018 


09FD 


P0019 


0119 


P001A 


0178 


P001B 


E105 


P001C 


C622 


P001D 


A031 


P001E 


0112 


P001F 


C205 


P0020 


0132 


P0021 


D103 


P0022 


D103 


P0023 


E107 


P0024 


FOOO 


P0026 


ODFD 


P0027 


0500 



7FFF X 



LDQ- 


VID.I 




ALS 


5 




AND- 


LPMSK+3 


MASK OFF CLASS CODE 


INA 


-MMCODE 


IS THIS A MASS STORAGE DEVICE 


SAN 


THDSTR-*-l 


SKIP IF NOT 


SQM 


THDSTR-*-l 




LDQ- 


VPTR.I 




LDA- 


(ZERO),Q 




AND- 


ONEBIT+14 




SAN 


R2-*-l 




LDA- 


PS,Q 




SAM 


THDSTR-*-l 




R2 RAO- 


VR.I 




RAO- 


VR.I 




THDSTR LDQ- 


VTMP.I 


. 


ADQ 


" =XL0G2 




INQ 


-2 




UN 




1-CARD DELETED 



GET NEXT ENTRY FROM THREAD 



P0028 


4106 


THDNXT STQ- VTPE.l 

* 


P0029 


E202 




LDQ- PT.Q 


P002A 


ODOO 




INQ 


P002B 


0151 




SQN THDl-*-l 


P002C 


1808 




JMP* RCTHD 


P002D 


C622 


THD1 


LDA- (ZERO),Q 


P002E 


A85A 




AND* RPMASK 


P002F 


9104 




SUB- VPL.I 


P0030 


0133 




SAM RCTHD-*-l 


P0031 


E106 




LDQ- VTPE.I 


P0032 


E202 




LDQ- PT.Q 



PRECEDING ENTRY SAVED 
10-CARDS DELETED 

NEXT ENTRY ON THREAD 



THREAD END. GO THREAD 
IF ENTRYS PRIORITY IS 
REQUESTS PRIORITY 
THEN GO THREAD REQ. 





RW 


45 




RW 


46 




RW 


48 




RW 


50 




RW 


51 




RW 


52 




RW 


53 




RW 


54 


*436 


RW 


55 




RW 


56 




RW 


57 




RW 


58 




RW 


59 




RW 


60 




RW 


62 




RW 


63 




RW 


64 




RW 


65 




RW 


66 




RW 


67 


**MSOS 


4.0 RW 


68 




RW 


69 




RW 


70 




RW 


71 




RW 


72 




RW 


73 


**MSOS 


4.0 RW 


74 


**MSOS 


4.0 RW 


75 


**MSOS 


4.0 RW 


76 


**MSOS 


4.0 RW 


77 


**MSOS 


4.0 RW 


78 


**MSOS 


4.0 RW 


79 


**MSOS 


4.0 RW 


80 




RW 


81 




RW 


82 




RW 


83 




RW 


84 




RW 


85 




RW 


86 




RW 


87 




RW 


88 




RW 


89 




RW 


90 




RW 


91 




RW 


92 




RW 


93 




RW 


94 




RW 


95 




RW 


96 




RW 


97 




RW 


98 




RW 


99 




RW 


100 




RW 


101 
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P003C 



JMP* THDNXT 

THREAD NEXT ENTRY 



P0034 


ElOfi 


P0035 


C202 


P0036 


E105 


P0037 


6202 


P0038 


0814 


P0039 


ElOfi 


P003A 


6202 


P003B 


0400 



RCTHD LDQ- VTPE.I 

LDA- PT.Q 

LDQ- VPTR.I 

STA- PT.Q 

TRQ A 

LDQ- VTPE.I 

STA- PT.Q 
EIN 



POINTER TO PREVIOUS ENTRY 
POINTER TO NEW LIST 



END OF THREADING 
IF DEVICE BUSY, RELEASE VOLATILE 



E107 



LDQ- VTMP.I 



ACTUAL LU IN Q 



IN CASE ALT. TO BE USED, THE 
FOLLOWING CODE SUBSTITUTES IT. 
IF NO ALT. AVAILABLE, REQ. REJECTED. 



1 CARD DELETED 



62*1174 



P003D 


5400 


P003F 


0148 


P0040 


1839 


P0041 


4C2C 


PO0 12 


2020 


P0O43 


2044 


P0044 


4F57 


P0045 


4E20 


P0016 


7FFF X 


P0047 


7FFF X 


P0048 


0500 


P0049 


E107 


P004A 


OAFF 


P004B 


6E3E 


P004C 


CEF9 


P004D 


A02F 


P004E 


0101 


P004F 


1817 


P0050 


C107 


P0051 


5400 


P0053 


E80B 


P0054 


0141 


P0055 


1811 


P0O56 


68ER 


P0057 


COOO 


P00F9 


BOEF 


P005A 


6802 


ponsB 


54F4 



7FFF X 



RTJ ALTSUB 
SQZ ALTl-*-l 
JMP* ALT3 



DWNMSG ALF 5,L, DOWN 



RW 


102 


RW 


103 


RW 


104 


RW 


105 


RW 


106 


RW 


107 


RW 


108 


RW 


109 


RW 


110 


RW 


111 


RW 


112 


RW 


113 


RW 


114 


RW 


115 


RW 


116 


RW 


117 


RW 


118 


RW 


119 


RW 


120 


RW 


121 


RW 


122 


RW 


123 


RW 


124 


RW 


125 


RW 


126 


RW 


128 


RW 


129 



7FFF X 



4C20 



AL0G1 


ADC 


L0G1 






RW 


AL0G1A ADC 


L0G1A 




*465 


RW 


* 






1-CARD DELETED 




RW 


* 






3 CARDS DELETED 


62*1174 


RW 


* 










RW 


ALT1 


iin 








RW 




LDQ- 


VTMP.I 


REQUESTED LOGICAL UNIT 


62*1174 


RW 




ENA 


-0 


30*534 




RW 




STA* 
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END 
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PROGRAM* 


0000 


04D1 


MMBUFF 


LOCAL 


0351 


0003 


BUF2A 


LOCAL 


045C 


0060 



ALCLGH 


-- 04BC 


SPACE 


-- 0000 


T10 


— 0000 


AREAC 


— 001A 


STMSV4 


— 04CD 


T17 


-- 0000 



EXTERNAL SYMBOLS. 



ADRFMS 
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LOBDTB 
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DM I COD 
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P18PGA 


TBLADR 
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DTIMER 
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Nl 
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D15721 


F17811 
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N10 
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EFLOCK 
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Nil 
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I UP 
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*********************************************************************** 

* ENTRY POINTS 

*********************************************************************** 

SPACE REQUEST PROCESSOR 
START OF SPACE PROGRAM 
PARTITION CORE REQUEST PROCESSOR 
TOTAL LENGTH OF ALLOCATABLE 
ALLOCATABLE CORE LENGTH TABLE 
**************************************************** 

EXTERNALS 
**************************************************** 
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0000 P 


ENT 


Tin 
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ENT 
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0000 P 


ENT 
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ENT 
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04BC P 


ENT 


ALCLGH 




******************* 




*******************' 




EXT 


UBPROT 




EXT 


LBPROT 




EXT 


UPBDTB 




EXT 


LOBDTB 




EXT 


CCP 




EXT 


SYFAIL 




EXT 


END0V4 




EXT 


CKTHRD 




EXT 


SAVLU 




EXT 


RPMASK 




EXT 


LVLSTR 




EXT 


LEND 




EXT 


CALTIID 




EXT 


DTIMER 




EXT 


IDLE 




EXT 


MPFLAG 




EXT 


DMICOD 




EXT 


TBLADR 




EXT 


EMPSRT 




EXT 


UPTOD 




EXT 


El 5761 




EXT 


H15721 




EXT 


D15721 




EXT 


E15721 




EXT 


E1573 




EXT 


01572 




EXT 


E1572F 




EXT 


E1572 




EXT 


EQ3644 




EXT 


El 0336 




EXT 


010336 




EXT 


F10336 




EXT 


TMRTYP 




EXT 


L0G1A 




EXT 


E17811 



DEFINE MICRO-INTRPT CODE 

ADT TABLE ADDRESS 

RESET/START FUNCTION CODE 

TIME OF DAY PROGRAM 

1576-1 BASIC W.E.S WORD - 

1572-1 HISTORY TABLE 

1572-1 BASIC W.E.S WORD - 

1572-1 BASIC W.E.S WORD - 

1573 BASIC W,E,S WORD 

1572 OSCILLATOR FREQ. /CLOCK PREQ. 

FUNCTION CODE TO ENABLE 1572 

1572 BASIC W,E,S WORD 

FUNCTION CODE FOR COMM. MUX 

10336-1 W.E.S WORD 

10336-1 CLOCK REGISTER VALUE 

ENABLE 10336-1 

TIMER TYPE DESIGNATOR 

TABLE OF P.D.T. ADDRESSES 
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MP MSOS 
MP MSOS 
MP MSOS 
MP MSOS 
**MSOS 4.1** 
FUNCTION 

**MSOS 4.1** 
DATA **MSOS 4.1** 
FUNCTION**MSOS 4.1** 
**MSOS 4.1** 
**MSOS 4.1** 
**MSOS 4.1** 
**MSOS 4.1** 
**MSOS 4.1** 
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**MSOS 4.1** 
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OOF 7 
OOFfi 



EXT F17811 

EXT JOBENT 

EXT LIBEDT 

EXT PROTEC 

EXT SYSI.VL 

EXT K65T10 

EXT 1UP 

EXT INPTV4 

EXT AUTF9 

EXT AUTFA 

EXT AUTFB 

EXT N1.N2.N4.N5 

EXT LSIZV4 

EXT PSIZV4 

EXT JBFLV4 

EXT EFLOCK 

EXT MIBX 

EXT TDFUNC 

EXT SYSMON 

EXT SYSDAY 

EXT SYSYER 

EXT SYSIP 

EXT FSLIST 

EXT ADRFMS 

EXT BE0LU1 

EXT BE0LU2 

EXT BEGLII3 

EXT BEGLU4 

EXT BE0LU5 

EXT BEGLU6 

EXT BEGLU7 

EXT BEGLUR 

EXT NUMFSO 

EXT NUMFS1 

EXT NUMFS2 

EXT NUMFS3 

EXT NUMFS4 

EXT NUMrS5 

EXT NUMFS6 

EXT NUMFS7 

EXT NUMFS8 

EXT OUTPUT 

EXT SPACE4 

EXT N0030A 

EXT REI. 

EXT sen 

EXT PTNALC 

EXT PTNRFL 

EXT SPCEV4 

EXT RDPTV4 

EXT 0HTPV4 

EXT PCORE 

EXT P1RECM 

EXT P1RPCA 

EXT - P1BADD 

EQU L0C0RE($F7 
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STANDARD INPUT (TRVEC) 
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AUTOLOAD STD PUNCH (TRVEC) 
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OVERLAY LENGTH OF PROTECT PROCESSOR **MSOS 4.0 



LOCK OUT LOGGER FLAG **MSOS 4.1** 

LOCK OUT MI PRO 

TIME/DATE FUNCTION ORDINAL 

MONTH SYSTEM WAS LAST BUILT 

DAY SYSTEM WAS LAST BUILT 

YEAR SYSTEM WAS LAST BUILT 

SYSTEM IDENTIFICATION BUFFER 

START OF FILE SPACE LIST 

BEGINNING OF FILE SPACE-LIB. UNIT 

BEGINNING OF FILE SPACE-UNIT 1 

BEGINNING OF FILE SPACE-UNIT 2 

BEGINNING OF FILE SPACE-UNIT 3 

BEGINNING OF FILE SPACE-UNIT 4 

BEGINNING OF FILE SPACE-UNIT 5 

BEGINNING OF FILE SPACE-UNIT 6 

BEGINNING OF FILE SPACE-UNIT 7 

BEGINNING OF FILE SPACE-UNIT 8 

FILE SPACE-LIB. UNIT 



LENGTH OF 

LENGTH OF FILE SPACE-UNIT 1 

LENGTH OF FILE SPACE-UNIT 2 

LENGTH OF FILE SPACE-UNIT 3 

LENGTH OF FILE SPACE-UNIT 4 

LENGTH OF FILE SPACE-UNIT 5 

LENGTH OF FILE SPACE-UNIT 6 

LENGTH OF FILE SPACE-UNIT 7 

LENGTH OF FILE SPACE-UNIT 8 
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**MSOS 
**MSOS 
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**MSOS 
**MSOS 
**MSOS 
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**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 



4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1** 
4.1*" 
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SPACE RFQUEST TO UNSWAP (DCORE) 

SWAP ROUTINE READ REQUEST (DCORE) 

RELEASE ROUTINE (DCORE) 

SCHEDULE ROUTINE (DCORE) 

SCHEDULE PRTCDR (PRTCDR) 

RELFASE PRTCDR (PRTCDR 

PRT 16 PARTITION CORE REQ. (PRTCDR) 

PRI 16 SWAP AREA READ REQ. (PRTCDR) 
PRT 16 SWAP AREA WRITE REQ.(PR|CDR) 

PHYSTAB FOR CORE DRIVER (SYSDAT) 
POINTER TO ECM DRIVER (SYSDAT) 
PAGE FILE ADDRESS 
PAGE MEMORY ADDRESS 
SYSTEM LOW CORE DATA 
SYSTEM HIGH CORE DATA 
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15 



0001 


EQU 


LUCORE(l) 


' LOGICAL UNIT OF CORE ALLOCATOR 


0003 


EQU 


VR(3) 


RETURN IN VOLATILE 


0004 


EQU 


VPL(4) 


PRIORITY IN VOLATILE 


0022 


EQU 


ZER0($22) 


ZERO 


0023 


EQU 


0NEBIT(*23) 




0007 


EQU 


VTMP(7) 


TEMP IN VOLATILE 


0002 


EQU 


LPMSK(2) 




OOF 4 


EQU 


AM0NI($F4) 
F0UR($25) 




0025 


EQU 




OOEB 


EQU 


SYDIR($EB) 





SPACE 


106 


SPACE 


108 


SPACE 


109 


SPACE 


110 


SPACE 


111 


SPACE 


112 


SPACE 


113 


SPACE 


114 


SPACE 


115 


SPACE 


116 


SPACE 


117 


SPACE 


118 


SPACE 


119 


SPACE 


120 



o 



o 



o 



o 
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POOOO 


0822 


P0001 


C108 


P0002 


0133 


P0003 


0A05 


P0004 


8103 


P0005 


6103 


POOOfi 


C622 


P0007 


A400 


P0009 


6104 


POOOA 


5400 


POOOC 


C107 


POOOD 


09F5 


POOOE 


0102 


POOOF 


1400 


poon 


0C01 


POO] 2 


1400 



POOH 

P0015 
P001 6 
P00J7 
P0018 



onno p 



7FFF X 
7FFF X 



7FFF X 
7FFF X 



0C01 

54F4 

1204 

FFFF X 

1400 7FFF X 



C0R1 



CORZ 



RW REQUEST PROCESSOR MUST BE PRESENT 
FOR OPERATION OF THIS MODULE. 

LUCORE MUST BE EQUATED TO THE LOGICAL 
UNIT ASSIGNED TO THE CORE ALLOCATOR. 



r^^\ EQU 

[ T10 ) TRA 
\ - J LDA- 
SAM 
ENA 



ADD- 

STA- 

LDA- 

AND 

STA- 

RTJ 

LDA- 

1NA 

SAZ 

JMP 

ENQ 

JMP 



T17(*) 

Q 

8,1 

C0R1 

5 

VR,I 

VR,I 

(ZER0),Q 

RPMASK 

VPL.I 

CKTHRD 

VTMP.I 

-10 

CORZ 

K65T10 

LUCORE 

SAVLU 



9(A ■ covu t^~\l/^^''-\° 

SKIP IF INDIRECT REQ 

INCREMENT RETURN ADDRESS 
FOR DIRECT 
CALL 

GET REQUEST PRIORITY 

CHK FOR ZERO THREAD LOC. 
CHECK REQ CODE 

SPACE REQUEST C CO?2-<-2Q^/A J 
A PARTITIONED REQ 

SET UP LU FOR ALLOCATOR 



TOIDLE ENQ 1 



ENTER TIME/DATE Q CODE 



SCHDLE (TnFUNC),4 



00.20.22. 


PAGE 


5 




SPACE 


122 




SPACE 


123 




SPACE 


124 




SPACE 


125 




SPACE 


126 




SPACE 


127 


5 **MS0S 4.0 


SPACE 


129 




SPACE 


130 


**MSOS 4.0 


SPACE 


131 


**MSOS 4.0 SPACE 


132 




SPACE 


133 




SPACE 


134 




SPACE 


135 




SPACE 


136 




SPACE 


137 




SPACE 


138 




SPACE 


139 




SPACE 


140 


**MSOS 4.0 


SPACE 


141 


**MSOS 4.0 


SPACE 


142 


**MSOS 4.0 


SPACE 


143 


**MSOS 4.0 


SPACE 


144 


**MS0S 4.0 


SPACE 


145 




SPACE 


146 


**MSOS 4.1** 


SPACE 


148 


**MSOS 4.1** 


SPACE 


149 



\7 fW^- • eo*e_ 












r 



JMP+ IDLE 



GO TO IDLE LOOP 



**MSOS 4.1** SPACE 



150 



40 



P001A 
P001B 



0000 
FFFF 



****************************************************** SPACE 152 

AREAC ADC TOTAL LENGTH OF ALLOCATABLE CORE SPACE 153 

ADC ($7FFF) THREAD SPACE 154 

*********************************************************************** SPACE 155 



Qih 



\j/&+- 



U>- 



ir^H 



^ 
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ITS PURPOSE IS - 
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25 
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1. SET UP THE CORE ALLOCATION TARLE 

2. " PROTECT AND UNPROTECT APPROPRIATE CORE LOCATIONS 

3. SET UP THE SYSTEM DIRECTORY ENTRY OF CERTAIN JOB 
PROCESSOR MODULES 

4. START THE SYSTEM TIMER, AND INITIATE THE DIAGNOSTIC 
TIMER AMD TIME-OF-DAY PROGRAMS 

5. PRINT THE SYSTEM PSR LEVEL MESSAGE 

6. REQUEST THAT THE PROGRAM PROTECT SWITCH BE ENABLED 
IF I r IS NOT 

7. PRINT THE SYSTEM IDENTIFICATION 

8. PRINT THE SYSTEM CORE SIZE MODE 

9. PERFORM A VALIDITY CHECK ON THE SYSTEM FILES (IF ANY) 

10. INITIATE A REOUEST FOR THE TIME AND DATE 

11. TRANSFER CONTROL TO THE SYSTEM IDLE LOOP 



SET UP THE CORE ALLOCATION TABLE 



P001C 


CPOO 


04 OF 


RESTRT 


LDA 


ALCLGH 




P001E 


0002 






INA 


2 


ALLOW ROOM FOR 


P001F 


6800 


04 9C 




STA 


ALCLGH 




P0021 


OCOF 




RST1 


ENQ 


15 




P0022 


COOO 


001A P 




LDA 


=XAREAC 




P0O24 


ODFE 




SETTBL 


INQ 


-1 


SETUP ALLOCATH 


P0025 


60FF 






STA- 


I 




P0026 


CAOO 


0495 




LDA 


ALCLGH, Q 




P0028 


0101 






SAZ 


CHKEND 


NO ALLOCATION, 


P0029 


0902 






INA 


2 




P002A 


80FF 




CHKEND 


ADD- 


I 




P002B 


0143 






SQZ 


SETEND 




P002C 


6600 


7FFF X 




STA 


LVLSTR.Q 




P002E 


18F5 






JMP* 


SETTBL 





THREAD BETWEEN AREA 0-1 



SEE IF DONE 



SPACE 


157 


SPACE 


158 


SPACE 


159 


SPACE 


160 


SPACE 


161 


SPACE 


162 


SPACE 


163 


SPACE 


164 


SPACE 


16b 


SPACE 


166 


SPACE 


167 


SPACE 


168 


SPACE 


169 


) SPACE 


170 


SPACE 


171 


SPACE 


172 


SPACE 


174 


SPACE 


175 


122*4381 SPACE132 


11 


SPACE 


178 


SPACE 


179 


122*4381 SPACE132 


12 


SPACE 


180 


SPACE 


181 


SPACE 


182 


SPACE 


183 


SPACE 


184 


SPACE 


185 


SPACE 


186 


SPACE 


187 


SPACE 


188 


SPACE 


189 






ft* ^ V 



Lr if' 



o 



( ) 



O 
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15 



20 



25 
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P002F 


0901 






SE7END 


INA 


1 


P0030 


fi400 


7FFF 


X 




STA 


LEND 


1700 ASSEMRLY OF 


SPACE 










P003? 


OCOA 








ENQ 


10 


P0033 


Ef>E9 








LPQ- 


($E9),Q 


PPP34 


0151 








SQN 


FIX4 


P0035 


180F 








JMP* 


FIX4Y 


P0036 


0862 






FIX4 


TCA 


Q 


P0037 


COOO 


7FFF 


X 




LDA 


=XFND0V4 


P0039 


0834 








AAQ 


A 


P003A 


0121 








SAP 


F1X4A 


P003B 


1819 








JMP* 


NTENUF 


P003C 


0105 






FIX4A 


SAZ 


FIX4X 


P0030 


EOOO 


04BC 


P 




LDQ 


-XALCLGH 


P003F 


8203 








AOD- 


3,Q 


P0040 


6203 








STA- 


3,Q 


P0041 


180F 








JMP* 


RST1 


P0042 


0854 






FIX4X 


TCQ 


A 


P0043 


1807 








JMP* 


SKIPIT 


P0044 


0822 






FIX4Y 


TRA 


Q 


P0045 


90F7 








SUB- 


$F7 


P0046 


0132 








SAM 


SKIPIT-1 


P0047 


401- 7 








STQ- 


$F7 


P0048 


40ED 








STQ- 


$ED 


P0049 


0814 








TRQ 


A 


P004A 


9000 


0019 


P 


SKIPIT 


SUB 


=XAREAC- 


P004C 


68CD 








STA* 


AREAC 


P004P 


6400 


7FFF 


X 




STA 


CALTHD 


P004F 


6400 


7FFF 


X 




STA 


MIBX 


POOS] 


6400 


7FFF 


X 




STA 


EFLOCK 


P0053 


181D 








JMP* 


INIT 



CLASS - VER 3.0 
SETUP END OF PROTECTED ALLOCATABLE AREA 



08/21/80 00.20.22. (pAGEJ) Qj 



SPACE 191 
SPACE—-^ 192 
CLASS - VER 3.0 08/21/80 00.20.22. (^AgT) (T) 



IS UNPROTECTED IN PART 1 

YES 

NO 

-(END OF ALLOCATABLE) TO Q 

ADDR OF LAST LOCATION IN PART TO 

C0MPU1E ; EXTRA LOCATIONS 

SKIP IF EXTRA. GE. ZERO 

GO AWAY IF NOT ENOUGH ROOM 

SKIP IF ZERO EXTRA MEMORY 

START OF LENGTH TABLE TO A 

ADD EXTRA TO REQUESTED AREA 4 

STORE BACK IN TABLE 

SET UP ALLOCATABLE WITH NEW AREA 4 

SET A TO END OF ALLOCATABLE 

IS THE SIZE OF ALLOCATABLE GREATER 

THAN SPECIFIED BY THE INITIALIZER 

NO 

YES, SPECIFY THE NEW SIZE 



SETUP TOTAL AVAILABLE PROTECTED ALLOCATABLE 

LOCK OUT MIPRO 
LOCK OUT LOGGER 



**MSOS 4.1** 


SPACE 


194 


**MSOS 4.1** 


SPACE 


195 


122*4381 


SPACE132 


14 


122*4381 


SPACE 132 


15 


122*4381 


SPACE 132 


16 


1 A 122*4381 


SPACE132 


17 


122*4381 


SPACE132 


18 


122*4381 


SPACE 132 


19 


122*4381 


SPACE 132 


20 


122*4381 


SPACE132 


21 


122*4381 


SPACE132 


22 


122*4381 


SPACE132 


23 


122*4381 


SPACE 132 


24 


1 122*4381 


SPACE 132 


25 


122*4381 


SPACE132 


26 


122*4381 


SPACE132 


27 


122*4381 


SPACE132 


28 




SPACE 


198 




SPACE 


199 




SPACE 


200 




SPACE 


201 




SPACE 


202 




SPACE 


203 


LOCATABLE 


SPACE 


204 




SPACE 


205 




SPACE 


206 


**MSOS 4.1** 


SPACE 


207 


122*4381 


SPACE132 


29 



SPACE 



PAGE 



0AIE1 08/27/78 



0202 


P0032 


OCOA 






Etta 


10 


0203 


PM33 


E6E9 






L DO- 


(tr.9) f q 


0204 


PQ0*4 


0151 






SON 


FIX4 


0205 


P0035 


s iA^F 






J MP* 


FIX«iY 


0206 


POO 36 


862^ 




FIX'* 


TCA 


a 


0207 


P0037 
P0038 


COOO 
7FFF 


X 




LDA 


=XEM0QV4 


0200 


P0039 


0831* 






AAQ 


A 


209 


PQ03A 


0121 






^SAP 


FIX4A 


0210 


P003B 


1519 






JhR* MTENUF 


0211 


P003C 


0105 




FIX4A 


SAZ^ 


"-FIX4X 
=>A4XLCH 


OZIZ 


P003D 


EOOO 






LOQ 




P0 03E 


04BC 


P 








0213 


P003F 


8203 






AOO- 


3.Q ^v 


3214 


POQttO 


6203 






STA- 


3,Q 


0215 


PQ041 


180F 






JHP» 


RSTl 


0216 


P0042 


005k 




FIX4X 


TCQ 


A 


0217 


P0Q43 


1807 






JHP* 


SKIPIT 


0210 


P0 044 


0822 




FIX4Y 


TRA 


q y 


0219 


P0045 


90F7 






SUB- 


SF7 X 


0220 


P0 046 


0132 






SAM 


SKI PIT- 1 


0221 


P0047 


40F7 






SIQ- 


%rf 


0222 


P0048 


40EO 






STQX'JEO 


0223 


P0049 


oam 






T#(f 
J/SUB 


A 


0224 


P004A 


9000 




SKIPI 


=XAREAC-1 




PQ04B 


0019 


p 








0225 


P0Q4C 


64 CO 






STA* 


A RE AC 


0226 


POO 40 
PQ04E 


6<«00 
7FFF/ 


lk 




STA 


CALTHO 


0227 


PQ04F 


JbJrOO 
-7FFF 


X 




STA 


HIBX 




POO 50^ 


X 








0220 


PQ0J5i 
RQQbZ 


6400 
7FFF 


X 
X 




STA 


EFLOCK 


0229- 


-T0053 


1810 






JMP* 


INIT 



»*HSOS^4.1**M 2900 19 3 
IS UNPROTECTED IN PART 1 » » NSifs 4. 1* *M 2900 194 

YES yS^ 122»43B1******** 

MO S^ 122*4381******** 

-IENO OF ALLOCATABLE) 10 yS 122* 4 J8 1*** • •*♦• 

AOOR OF LAST LOCATION IN&A'RT TO A 122*4 301 ** * •• *•• 

COMPUTE # EXTRA LOCAI-tONS 122*4381** * * »*** 

SKIP IF EXIRA.Gf.tElfo 122*4 381 » ** ***** 

GO AHAY IF NOT ENOUGH ROOM 122* 4 381* •* ***** 

SKIP IF ZERO.E/XTRA MEMORY 122*438 1* * ****** 

START OF LENGTH T AOLE TO A 122*438 1*** »•*♦* 

AOO EXTRA TO REQUESTEO AREA 4 122*4381* ••••••• 

STOJ?Ef BACK IN TABLE 122*438l******** 

"SEJ OP ALLOCATABLE MITH NEW AREA 4 122*4381* *•* **•* 

XSET^kTO END OF ALLOCATABLE 122**i38l******** 

122*4381******»* 
IS THE SllE^OF ALLOCATABLE GREATER 122*4381******** 

THAN SPECIFltO^BY THE INITIALIZER M2900197 

NO ^\ M2900198 

YES, SPECIFY THE NOk^IZE M2900199 

M2900200 
M2900201 
M2900202 




SETUP TOTAL AVAILABLE PROTECTED ALbfiCATABLE 



M2900203 
M 2900204 



LOCK OUT HIPRO 
LOCK OUT LOGGER 



H2900205 
**MSOS 4.1**H29Wi206 
122*4381' 



o 



V / 



o 



n 



O 
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20 



25 
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P0054 


54F4 


NTENUF 


RTJ- 


(AMONI) 


P0O55 


OCOO 




ADC 


$0C00 


P0056 


0000 




AUC 





P0057 


0000 


NTETHD 


ADC 





P0058 


18FC 




NUM 


$18FC 


P0059 


0010 




ADC 


NTEMSL 


P005A 


0060 P 




ADC 


NTEMSG 


P005B 


C8FB 


NTEWAT 


LDA* 


NTETHD 


P005C 


0101 




SAZ 


1 


P005P 


1RFP 




JMP* 


NTEWAT 


P005E 


5400 7FFF X 




RTJ 


SYFAIL 


P0060 


494E 


NTEMSG 


ALF 


*,INSUFI 


P0061 


5355 








P0062 


4646 








P0063 


4943 








P0064 


4945 








P00fi5 


4E54 








P0066 


2041 








P0067 


4C4C 








P0068 


4F43 








P0069 


4154 








PP06A 


4142 








P006B 


4C45 








P006C 


2040 








P006D 


454D 








P006E 


4F52 








P006F 


5920 









PRINT INSUFFICIENT MEMORY MESSAGE 



WAIT FOR COMPLETION 
KILL SYSTEM 



122*4381 SPACE132 31 

122*4381 SPACE 132 32 

122*4381 SPACE132 33 

122*4381 SPACE132 34 

122*4381 SPACE132 35 

122*4381 SPACE132 36 

122*4381 SPACE132 37 



122*4381 SPACE132 39 

122*4381 SPACE132 40 

122*4381 SPACE132 41 

122*4381 SPACE132 42 



122*4381 SPACE132 44 



0010 



NTEMSL EQU NTEMSL (*-NTEMSG) 



122*4381 SPACE132 45 
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40 



45 



50 



55 



P0070 

P0072 
P0073 
P0074 



P0075 
P0076 
P0077 

P007R 

P0079 

P007B 

P007C 

P007D 
P007E 
P007F 
POOPO 
P0081 

P0082 
P0083 
P0083 



P00P4 
P0C85 



INITIALIZE ALL LOCATIONS ABOVE PHYSICAL LOCATION $FFFF 
IF TIMESHARE SYSTEM 



1. SET PAOE REGS 0-15 TO 0-15 BECAUSE 
THIS COOE IS IN THE LOWEST 32K OF MEMORY 



2. GO TO PAGE MODE 

3. USE PAGE REG 16 TO INDEX PAGE (2K) TO WORK ON 
START WITH PAGE 127 (POSSIBLE LAST PAGE IN MACHINE) 

4. WRITE $18FF TO ALL LOCATIONS IN CURRENT PAGE 
AND SET PROTECT BIT ON 

5. DECREMENT PAGE NUMBER UNTIL ALL PAGES ABOVE $FFFF 

IN BOTH CPUS HAVE BEEN COVERED. 
IF A PAGE DOES NOT EXIST, THE WRITE OPERATION WILL 
BE ABORTED AND PARITY ERROR SET 

6. GO TO ABSOLUTE MODE 

7. SET UP PAGE REGS 16-31 TO CONTAIN 16-31. THUS 
PHYSICAL ADDRESS = LOGICAL ADDRESS FOR THE LOWEST 65K 



COOO 

BOH 
0111 
1827 



OBOB 
0844 
OCOF 

0BC3 

8000 

06A3 

0500 

OBOC 
0A10 
OFCB 
60FF 
097F 

07C1 

0A5F 



07C2 
C864 



7FFF X 
0071 P 



0075 P 



INIT 



LDA 
EQU 
EOR- 
SAN 
JMP* 
SETUPO EQU 
APM 



=XCCP 

ACCP(*-1) 

LPMSK+15 

SETUPO 

SPBLPO 

SETUPO(*) 





CLR A 
ENQ 15 
SETUP WPR A 



0801 



0086 P 



ADD =N$0801 
DQP *-SETUP 



UN 

PMO 

ENA $10 

ALS 11 

STA- I 

INA $7F 

XFA 1 



ENA $5F 



XFA 2 

LDA* LOCO 
NXTPGE EQU NXTPGE(*) 
WPR 1 



CURRENT CONTROL POINT 



SKIP IF PATCHED 



GO TO ABSOLUTE MODE 



00.20.22. 


PAGE 


10 


116*4381 


SPACE 132 


47 


116*4381 


SPACE132 


48 


116*4381 


SPACE 132 


49 


116*4381 


SPACE132 


50 


116*4381 


SPACE 132 


51 


116*4381 


SPACE 132 


52 


116*4381 


SPACE 132 


53 
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54 
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SPACE132 
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116*4381 
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116*4381 


SPACE 132' 


60 


116*4381 


SPACE132 


61 


116*4381 


SPACE 132 


62 


116*4381 


SPACE 132 


63 


116*4381 


SPACE132 


64 


116*4381 


SPACE 132 


65 


5K. 116*4381 


SPACE 132 


66 


116*4381 


SPACE132 


67 


116*4381 


SPACE 132 


68 


116*4381 


SPACE132 


69 


116*4381 


SPACE132 


70 


116*4381 


SPACE132 


71 


116*4381 


SPACE132 


72 


116*4381 


SPACE132 


73 


116*4381 


SPACE 132 


74 



ASSUME THIS CODE IS IN THE LOWEST 32K 116*4381 SPACE132 75 
OF MACHINE THUS 116*4381 SPACE 132 76 

FILL PAGE REGS 0-15 WITH 0-15 116*4381 SPACE132 77 



WRITE IN PAGE REG 

INCREMENT PAGE REG AND ITS CONTENT 



INHIBIT INTERRUPT FROM PARITY ERROR 
GO TO PAGE MODE 



116*4381 SPACE132 78 

116*4381 SPACE132 79 

116*4381 SPACE132 80 

116*4381 SPACE132 81 

116*4381 SPACE132 82 

116*4381 SPACE132 83 



116*4381 SPACE132 84 

USE PAGE REG $10 TO INDEX EACH PAGE 116*4381 SPACE132 85 

CURRENTLY BEING WRITTEN 116*4381 SPACE132 86 

MAX PAGE IN MACHINE 116*4381 SPACE132 87 

REG 1 CONTAINS CURRENT PAGE '(BITS 0-8)116*4381 SPACE132 88 



AND PAGE REG (BITS 10-15) 
TOTAL NO. OF PAGES = 96 ($60) 
FROM PAGE 127 TO 31 (ALL LOCATIONS 
ABOVE PHYSICAL $FFFF) 



DATA TO WRITE IN REG A ($18FF) 
REPEAT 

WRITE CURRENT PAGE IN PAGE REG $10 



116*4381 SPACE132 89 

116*4381 SPACE 132 90 

116*4381 SPACE 132 91 

116*4381 SPACE132 92 

116*4381 SPACE 132 93 

116*4381 SPACE132 94 

116*4381 SPACE132 95 

116*4381 SPACE132 96 
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P008f» 



OB23 



10 



15 



20 



?F 









LR3* 


H7FF 


P0087 


0483 








P0088 


C062 


* 






P0089 


EOFF 




LDQ- 


I 


POOPA 


FOOD 


* 


ADQ- 


LPMSK+11 




008B P 


NXTLOC EQU 


NXTLOC(*) 


P008B 


6622 




STA- 


(ZERO),Q 


P008C 


0600 




SPB 





POORD 


ODFE 




INQ 

D3P 


-1 

*-NXTLOC 


P008E 


0663 


* 


SB1- 


LPMSK+1 


P008F 


0401 








P0090 


9003 




D2P 


*-NXTPGE 


POO^l 


064B 


* 






P0092 


01C0 




SPE 






TOTAL NO. OF LOCATIONS IN ONE 



PAGE = $800 (2K) 

REG Q CONTAINS THE LOGICAL ADDRESS 
OF LOCATIONS IN PAGE, LAST L0C=$7FF 
REPEAT 

WRITE 16 BIT DATA 

SET PROTECT BIT TO ONE 

DECREMENT LOGICAL ADDRESS BY ONE 
UNTIL ALL LOCATIONS IN A PAGE WERE 

WRITTEN ENDREPEAT 

DECREMENT PAGE NUMBER BY ONE 



116*4381 SPACE132 97 



116*4381 
116*4381 
116*4381 
116*4381 
116*4381 
116*4381 
116*4381 
116*4381 
116*4381 



ENDREPEAT 

CLEAR PARITY ERRORS WHICH MIGHT BE 

CAUSED BY WRITING INTO NON-EXISTING 

MEMORY 



SPACE 132 98 

SPACE 132 99 

SPACE 132 100 

SPACE 132 101 

SPACE 132 102 

SPACE 132 103 

SPACE132 104 

SPACE132 105 

SPACE 132 106 



116*4381 SPACE132 107 
116*4381 SPACE132 108 



UNTIL ALL 90 PAGES HAS BEEN WRITTEN 116*4381 SPACE132 109 



116*4381 SPACE132 110 

116*4381 SPACE132 111 

116*4381 SPACE132 112 

116*4381 SPACE132 113 
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40 



FILL PAGE REGS 16-31 WITH 16-31 SUCH THAT PHYSICAL 
ADDRESS - LOGICAL ADDRESS F3R LOWEST 65K OF MEMORY 

APM 



P0093 


OB OB 








P0094 


OCOF 




ENQ 


15 


P0095 


COOO 


8010 


LDA 
SETUP1 WPR 


=N$8010 
A 


P0097 


0BC3 








P009R 


8000 


0801 


ADD 
DQP 


=N$0801 
*-SETUPl 



116*4381 SPACE132 115 

116*4381 SPACE132 116 

116*4381 SPACE132 117 

116*4381 SPACE132 118 

116*4381 SPACE 132 119 

116*4381 SPACE132 120 

116*4381 SPACE132 121 

116*4381 SPACE132 122 

116*4381 SPACE132 123 

116*4381 SPACE132 124 



P009A 



06A3 



170n ASSEMBLY OF SPACE 
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PAGE 



12 



PROTECT AND UNPROTECT APPROPRIATE CORE LOCATIONS 



10 



IF 



20 



25 



30 



35 



40 



45 



50 



55 



P009B 


E0F5 


POPOC 


0600 


POOPD 


0142 


P009E 


OPFE 


pnn<iF 


1PFC 


POOAO 


C400 


PP0A2 


E0F7 


P00A3 


0111 


P00A4 


1822 


P00A5 


C8CB 


I'OOAfi 


BOH 


P00A7 


0111 


P00A8 


181A 



P00A9 
POOAA 
POOAB 
POOAC 
POOAO 
POOAF 
POOBO 
P00B1 
PO0B3 
P0PB4 
P00B5 
POOBfi 

POOBP 
P00B9 
POOBA 
POOBB 
POOBC 
POOBO 

POOBF 

ponco 

P00C1 

PO0C2 
P00C3 
P00C4 
P00C5 



009B P 



7FFF X 



00A5 P 



SPBLPO 
SPBLOP 

CLRPB 

CLRPB1 



EQU 

LDQ- 

SPB 

SQZ 

I NO 

JMP* 



SPBLPO(*) 

$F5 



CLRPB 

-1 

SPBLOP 
LDA+ MPFLAfi 
LDO- $F7 

CLRPB1 

NOTMP 

CLRPB1(*) 

ACCP 

LPMSKH5 

CLRPBT 

NOTTS 



PROTECT ALL OF AVAILABLE CORE 
SKIP IF ALL UNPROTECTED 



116*4381 
**MS0S 4.1** 
**MSOS 4.0 
**MSOS 4.0 
**MSOS 4.0 
**MS0S4.0* 



SAN 

JMP* 

EQU 

LDA* 

EOR- 

SAN 

JMP* 



NON-ZERO IF AN MP SYSTEM 
BOTTOM OF AREA - 1 
SKIP IF AN MP 



CURRENT CONTROL POINT 



SKIP IF TIMESHARE SYSTEM 



0500 

OAOO 

OBCO 

C0F7 

6400 7FFF X 

0BC1 

C0F6 

6400 7FFF X 

OBCO 

C0F7 

PC01 

6600 7FFF X 

00B7 P 
6CFE 
OCFE 
6EFC 
C0F6 
0C01 
6600 7FFF X 

OOBE P 
6CFE 
OCFE 
6EFC 

00C2 P 
0BA1 
E0F6 
OBAO 
1808 



CLRPBT UN 





EMA 





NUM 


$0BC0 


LDA- 


LOCORE 


STA 


LBPROT 


NUM 


$0BC1 


LDA- 


HICORE 


STA 


UBPROT 


NUM 


JOBCO 


LDA- 


LOCORE 


ENQ 


1 


STA 


LOBDTB.Q 


EQU 


L0BDAP(*-1) 


STA* 


(LOBDAD) 


ENQ 


-1 


STA* 


(LOBDAD), Q 


LDA- 


IIICORC 


ENQ 


1 


STA 


UPBDTB.Q 


EQU 


UPBPAD(*-1) 


STA* 


(UPBDAD) 


ENQ 


-1 


STA* 


(UPBDAD), Q 


NOTTS EQU 
A M _^NUM- 
«-C LDQ- 


NMIS(*) 
<$0BA1) 


^NIIM^OBAO; 


JMP* 


RSTRT2 



SPECIAL INSTRUCTION ON SETTING UPPER AND 
LOWER BOUND REGISTERS 

(1) SET UPPER BOUND REGISTER TO ZERO — 

TURN OFF BOUNDS 

(2) SET LOWER BOUND REGISTER, AND 

(3) SET UPPER BOUND REGISTER. 

DISABLE INTERRUPT 



MP MSOS 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16M381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 
16*4381 

rr6*~4T8T 

LOAD LOWER BOUNDS REG(ENH INSTR LLB Q) MP MSOS 
TOP OF AREA + 1 MP MSOS 

LOAD UPPER BOUNDS REG(ENII INSTR LUB Q) MP MSOS 
SKIP OVER OLD CODE MP MSOS 



GET LOW CORE DATA AND SET FOR LOWER 

BOUND REGISTER DATA FOR TABLE 
LEVEL -1, AND 1 LOWER BOUND REGISTER 
TABLE 
INITIALIZATION 



GET HI-CORE DATA 

INITIALIZE LEVEL -1, AND 1 UPPER 
BOUND REGISTER DATA TABLE 



SPACE 



SPACE132 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 
SPACE 132 
SPACE132 
SPACE 132 
SPACE132 
SPACE132 
SPACE132 
SPACE132 
SPACE132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE132 
SPACE 132 
SPACE132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE132 
SPACE 132 
SPACE132 
SPACE132 
SPACE132 
SPACE 132 
SPACE 132 
SPACE 132 
SPACE R 
SPACE 132 
SPACE 

SPACE 
SPACE 
SPACE 



209 



125 
211 
212 
213 
214 
215 
216 
217 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 

164 
219 

220 
221 
222 



^rs^Ms^H 



°i© 



'£&> 



\* 



O 



o 



o 



o 



1700 ASSEMBLY OF SPACE 



CLASS - VER 3.0 



08/21/80 



10 



IS 



20 



25 



30 



35 



POOCfi 
P00C7 
P00C8 
P00C9 
POOCA 
POOCB 
POOCC 

poocn 

P00CF 
POODO 

pooni 

P00P2 
P00P3 
PO0D4 
P00P6 
P00D7 
P00P8 
P0009 
POOPA 
POODB 

poonc 
poonn 

POOPE 
POPOF 
POOEO 
P00E1 
P00E2 
P00E3 
P00E4 
P00E5 
P00E6 
P00E7 



0001 
0700 

onoi 

C0F6 
0874 
0101 
18FA 

EOOO 00F3 

0700 

ODOC 

0700 

ODC 5 

0700 

COOO 00E5 

0874 

0P01 

0101 

1PF9 

E0F4 

0700 

C0F2 
60FF 
0C02 
0854 
P0F1 
013C 
480fi 
E301 
0700 
E803 
0D04 
18F7 



NOTMP INQ 1 

RSTRT1 CPB 

INQ 1 

LDA- $F6 

EAQ A 

SAZ RSTRT2 

JMP* RSTRT1 

RSTRT2 LDQ =N$F3 

CPB 

INQ $C 

CPB 

INQ -$3A 
RSTRT3 CPB 

LDA =N$E5 

EAQ A 

INQ 1 

SAZ 1 

JMP* RSTRT3 

LDQ- $F4 

CPB 



LDA- 
STA- 
ENQ 
RSTRT4 TCQ 
ADD- 
SAM 
STQ* 
LDQ- 
CPB 
LDQ* 
INQ 
JMP* 



$F2 

I 

2 

A 

$F1 

RSTRT6 

RSTRT5 

l.B 



RSTRT5 

4 

RSTRT4 



PO IT THE OLD WAY 

CLEAR JOB AREA PROTECT BITS 

END OF AREA 4 1 



CLEAR SPECIAL COMMUNICATION AREA 



UNPROTECT FORTRAN AREA ($C5-$E5) 



UNPROTECTED REQUEST ENTRY 
POINT 

UNPROTECT PRESET LOCATIONS 



LENGTH OF TABLE OF PRESETS 



00.20.22. PAGE 


13 


MP MSOS SPACE 


224 


SPACE 


225 


SPACE 


226 


SPACE 


227 


SPACE 


228 


SPACE 


229 


SPACE 


230 


SPACE 


232 


SPACE 


233 


SPACE 


234 


SPACE 


235 


SPACE 


236 


SPACE 


237 


SPACE 


238 


SPACE 


239 


SPACE 


240 


SPACE 


241 


SPACE 


242 


SPACE 


243 


SPACE 


244 


SPACE 


246 


SPACE 


247 


SPACE 


248 


SPACE 


249 


SPACE 


250 


SPACE 


251 


SPACE 


252 


SPACE 


253 


SPACE 


254 


SPACE 


255 


SPACE 


256 


SPACE 


257 



F3 SW" 




A^sqX \M*-^ 



40 



P00E8 
P00E9 
POOEA 



0000 
18FF 
07FF 



RSTRT5 NUM 
LOCO ADC $18FF 
H7FF NUM $7FF 



COUNTER 
CONSTANT 



SPACE 259 
116*4381 SPACE132 165 
116*4381 SPACE132 166 
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SET UP SYSTEM DIRECTORY FOR JOBENT, LIBEDT, AND PROTEC SPACE 261 



10 



15 



20 



?5 



30 



POPEB 


7FFF X 






SDJOB 


ADC 


JOBENT 


POOEC 


7FFF X 






SDL IB 


ADC 


LIBEDT 


POOED 


7FFF X 






SDPRO 


ADC 


PROTEC 


POOFE 


EOEB 






RSTRT6 LDQ- 


SYDIR 


POOEF 


FPFB 








ADQ* 


SDJOB 


POOFO 


0A10 








ENA 


$10 


P0OF1 


6622 








STA- 


(ZER0),Q 


P00F2 


EOEB 








LDQ- 


SYDIR • 


P00F3 


FPFB 








ADQ* 


SDLIB 


P0PF4 


COOP 


7FFF 


X 




LDA 


=XLSIZV4 


P00F6 


6625 








STA- 


(FOUR),Q 


PP0F7 


EOEB 








LDQ- 


SYDIR 


P00F8 


F8F4 








ADQ* 


SDPRO 


POOF 9 


COOO 


7FFF 


X 




LDA 


=XPSIZV4 


POOFB 


6625 








STA- 


(FOUR),Q 


POOFC 


COFB 








LDA- 


$FB 


POOFD 


6400 


7FFF 


X 




STA+ 


AUTFB 


POOFF 


COFA 








LDA- 


$FA 


P0100 


6400 


7FFF 


X 




STA+ 


AUTFA 


P0102 


C0F9 








LDA- 


$F9 


P0103 


6400 


7FFF 


X 




STA+ 


AUTF9 


P0105 


802F 








ADD- 


$2F 


P0106 


6400 


7FFF 


X 




STA 


IUP 


P010R 


6400 


7FFF 


X 




STA 


INPTV4 



SET PRIORITY OF JOBENT TO 1 



SET LIMITS FOR INITIAL LOAD 
LIBEDT LOAD LENGTH 



SET LIMITS FOR INITIAL LOAD 
PROTEC LOAD LENGTH 

GET STANDARD LIST 
SAVE IN TRVEC 
GET STD PUNCH 
SAVE IN TRVEC 
GET STANDARD INPUT 
SAVE IN TRVEC 
ADD ASCII MODE 

SET UP FOR JOB PROCESSOR INPUT 



SPACE 


263 


SPACE 


264 


SPACE 


265 


SPACE 


267 


SPACE 


268 


SPACE 


269 


SPACE 


270 


SPACE 


271 


SPACE 


272 


**MSOS 4.0 SPACE 


273 


**MSOS 4.1* SPACE 


274 


SPACE 


275 


SPACE 


276 


**MSOS 4.0 SPACE 


277 


SPACE 


278 


SPACE 


279 


SPACE 


280 


SPACE 


281 


SPACE 


282 


**MSOS 4.0 SPACE 


283 


SPACE 


284 


**MSOS 4.0 SPACE 


285 


**MSOS 4.0 SPACE 


286 


**MSOS 4.0 SPACE 


287 



35 



40 



DISABLE THE 1576-1 STALL ALARM INTERRUPT, IF PRESENT 



SPACE 



289 



PP10A 


COOO 


7FFF X 


LDA 


=XE15761 




SPACE 


291 


PP10C 


BOll 




EOR- 


LPMSK+15 


IS THE STALL PRESENT IN THE SYSTEM 


SPACE 


292 


P010D 


0104 




SAZ 


TIMSRT 


NO 


SPACE 


293 


P010E 


E400 


010B X 


LDQ+ 


E15761 


YES, DISABLE THE INTERRUPT 


SPACE 


294 


poriP 


0A05 




ENA 


5 




SPACE 


295 


ppih 


035D 




OUT 


SREJ-* 




SPACE 


296 



o 



o 



o 
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START THE SYSTEM TIMER SPACE 298 



10 



15 



20 



25 



30 



35 



40 



45 



P0112 


E400 


P0114 


EA02 


P0115 


1622 



POllfi 


0180 P 


P011 7 


01 IF P 


pnno 


01 2A P 


P011P 


01 2F P 


P011A 


013A P 


POUR 


014A P 


P011C 


01 5F P 


P011D 


014E P 


P011E 


0157 P 



TIMER INITIATION CODING 

TIMER STARTING SEQUENCE IS BASED ON THE TIMER TYPE 



TYPE 


CODE 


NONE 





1572 


1 


1573 


2 


1572-1 LST 


3 


1572-1 SRG 


4 


364-4 COMM. MUX. 


5 


PSEUDO 


6 


10336-1 


7 



MP17 REAL-TIME CLOCK 8 



7FFF X 



TIMSRT LOQ+ TMRTYP 

LDU* IIMVCT.Q 
JMP- (ZERO),Q 



GET TIMER TYPE 
GET VECTOR FOR JUMP 
GO TO PROPER PROCESSOR 



TIMER PROCESSOR VECTOR TABLE 



TIMVCT ADC REJ 

ADC T1572 

ADC T1573 

ADC T72LST 

ADC T72SRG 

ADC T3644 

ADC CHKTMR 

ADC T10336 

ADC MP17CK 



= NO TIMER 

1 = 1572 

2 = 1573 

3 = 1572-1 LST 

4 = 1572-1 SRG 

5 = 364-4 COMM. MUX. 

6 = PSEUDO TIMER 

PSR 85*2236 DELETED FOR PSR 93*31 



7 = 

8 = 



10336-1 

MP17 REAL-TIME CLOCK 



1572 TIMER STARTING CODE 



P011F 


E400 


7FFF 


X 


P0121 


C400 


7FFF 


X 


P0123 


035D 






P0124 


ODFE 






P0125 


C400 


7FFF 


X 


P0127 


0359 






P0128 


0842 






P0129 


1836 







T1572 



TOUT 



LDQ+ E1572 
LDA+ E1572F 
OUT REJ-* 
INQ -1 
LDA+ 01572 
OUT REJ-* 
CLR Q 
JMP* CHKTMR 



FUNCTION CODE 
ENABLE 1572 

DATA CODE 
REGISTER COUNTS 

SET NO ACTION FLAG 
START DIAGNOSTIC TIMER 



**MSOS 


4.1** 


SPACE 


300 


**MSOS 


4.1** 


SPACE 


301 


**MSOS 


4.1** 


SPACE 


302 


**MSOS 


4.1** 


SPACE 


303 


**MSOS 


4.1** 


SPACE 


304 


**MSOS 


4.1** 


SPACE 


305 


**MSOS 


4.1** 


SPACE 


306 


**MSOS 


4.1** 


SPACE 


307 


**MSOS 


4.1** 


SPACE 


308 


**MSOS 


4.1** 


SPACE 


309 


**MSOS 


4.1** 


SPACE 


310 






SPACE 


311 






SPACE 


312 


**MSOS 


4.1** 


SPACE 


313 


**MSOS 


4.1** 


SPACE 


314 






SPACE 


315 


**MSOS 


4.1** 


SPACE 


316 


**MSOS 


4.1** 


SPACE 


317 


**MSOS 


4.1** 


SPACE 


318 


**MSOS 


4.1** 


SPACE 


319 


**MSOS 


4.1** 


SPACE 


320 


**MSOS 


4.1** 


SPACE 


321 


**MSOS 


4.1** 


SPACE 


322 


**MSOS 


4.1** 


SPACE 


323 


**MSOS 


4.1** 


SPACE 


324 


**MSOS 


4.1** 


SPACE 


325 


**MSOS 


4.1** 


SPACE 


326 


**MSOS 


4.1** 


SPACE 


327 


77 




SPACE 


328 






SPACE 


329 






SPACE 


330 


**MSOS 


4.1** 


SPACE 


331 


**MSOS 


4.1** 


SPACE 


332 


**MSOS 


4.1** 


SPACE 


333 


**MSOS 


4.1** 


SPACE 


334 


**MSOS 


4.1** 


SPACE 


335 


**MSOS 


4.1** 


SPACE 


336 


**MSOS 


4.1** 


SPACE 


337 


**MSOS 


4.1** 


SPACE 


338 


**MSOS 


4.1** 


SPACE 


339 


**MSOS 


4.1** 


SPACE 


340 


**MSOS 


4.1** 


SPACE 


341 
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00/21/80 



10 



IF 



20 



25 



30 



35 



40 



45 



50 



55 



P012A 


E400 


7FFF 


X 


P012C 


OPFE 






P012D 


C032 






P012E 


18F8 






P012F 


E400 


7FFF 


X 


P0131 


0A3C 






P013? 


0500 






P0133 


A400 


7FFF 


X 


P0135 


090? 






P0136 


6400 


0134 


X 


P013R 


0400 






P0139 


18ED 






P013A 


E400 


0130 


X 


P013C 


0A27 






P013D 


0500 






P013E 


A400 


0137 


X 


P0140 


0910 






P0141 


6400 


01 3F 


X 


P0H3 


0400 






P0144 


033C 






P0145 


E400 


7FFF 


X 


P0147 


C400 


7FFF 


X 



P0149 



P014A 
P014C 
P014P 



18DD 



E400 
0A06 
1PD9 



7FFF X 



1573 TIMER STARTING CODE 



T1573 



LPQ+ E1573 
INQ -1 

LDA- 0NEBITU5 
JMP* TOUT 



FUNCTION CODE 

$8000 = ENABLE 
GO TO OUTPUT 



1572-1 LST STARTING CODE 



T72LST 



LDQ+ E15721 
ENA $3C 
UN 
AND+ HI 5721 
INA 2 
STA+ H15721 
EIN 
JMP* TOUT 



FUNCTION CODE 

AND MASK FOR SRG FUNCTION BITS 



2 = ENABLE INTERRUPT 
RESTORE HISTORY WORD 



GO TO OUTPUT 



1572-1 SRG STARTING CODE 



T72SRG 



LDQ+ 

ENA" 

UN 

AND+ 

INA 

STA+ 

EIN 

OUT 

LDQ+ 

LDA+ 

EXT 

JMP* 



E15721 

$27 



H15/21 

$10 

H15/21 



REJ-* 

D15721 

015721 

015721 

TOUT 



FUNCTION CODE 

AND MASK FOR LST FUNCTION BITS 



$10 = ENABLE INTERRUPT 
RESTORE HISTORY WORD 



DATA CODE 

REGISTER COUNTS 

SRG TIME BASE/CLOCK FREQ. 

GO TO OUTPUT 



T3644 



364-4 COMMUNICATIONS MUX. TIMER 

LDQ+ EQ3644 FUNCTION CODE 
ENA 6 6 = ENABLE CLOCK 

JMP* TOUT GO TO OUTPUT 

PSR 85*2236 DELETED FOR PSR 93*3177 



10336-1 STARTING CODE 



P014E 


E400 


7FFF X 


T10336 


L00+ E10336 


FUNCTION COPE 


Pf)]50 


C400 


7FFF X 




LPA+ F10336 


ENABLE CODE 


P0152 


P32E 






OUT REJ-* 




P0153 


OPFE 






INQ -1 


DATA COPE • 


P0154 


C400 


7FFF X 




LDA+ 010336 


CLCOK REGISTER VALUE 


P0J56 


1PP0 






JMP* TOUT 





P0157 


E400 


7FFF X 


MP17CK LDQ+ DMICOD 


P0159 


C400 


7FFF X 


LPA+ TBLADR 


P015B 


0B06 




NUM $B06 


P015C 


E400 


7FFF X 


LPQ+ EMPSRT 



PSR 85*2236 DELETED FOR PSR 93*3177 
MP17 REAL-TIME APT CLOCK 



ENABLE ADT/MICRO-INT NUMBER 

ADT TABLE ADDRESS 

DEFINE MICRO-INTRPT (ENH INSTR DMI 

RESET AND START FUNCTION CODE 



00.20.23. 


PAGE 


16 


**MSOS 4.1** 


SPACE 


343 


**MSOS 4.1** 


SPACE 


344 


**MSOS 4.1** 


SPACE 


345 


**MSOS 4.1** 


SPACE 


346 


**MSOS 4.1** 


SPACE 


347 


**MSOS 4.1** 


SPACE 


348 


**MSOS 4.1** 


SPACE 


349 


**MSOS 4.1** 


SPACE 


350 


**MSOS 4.1** 


SPACE 


351 


**MSOS 4.1** 


SPACE 


352 




SPACE 


353 


**MSOS 4.1** 


SPACE 


354 


**MSOS 4.1** 


SPACE 


355 


**MSOS 4.1** 


SPACE 


356 


**MSOS 4.1** 


SPACE 


357 


**MSOS 4.1** 


SPACE 


358 


**MSOS 4.1** 


SPACE 


359 


**MSOS 4.1** 


SPACE 


360 


**MSOS 4.1** 


SPACE 


361 


**MSOS 4.1** 


SPACE 


362 


**MSOS 4.1** 


SPACE 


363 




SPACE 


364 


**MSOS 4.1** 


SPACE 


365 


**MSOS 4.1** 


SPACE 


366 


**MSOS 4.1** 


SPACE 


367 


**MSOS 4.1** 


SPACE 


368 


**MSOS 4.1** 


SPACE 


369 


**MSOS 4.1** 


SPACE 


370 


**MSOS 4.1** 


SPACE 


371 


**MSOS 4.1** 


SPACE 


372 


**MSOS 4.1** 


SPACE 


373 


**MSOS 4.1** 


SPACE 


374 




SPACE 


375 


**MSOS 4.1** 


SPACE 


3/6 




SPACE 


377 


**MSOS 4.1** 


SPACE 


378 


**MSOS 4.1** 


SPACE 


379 


**MSOS 4.1** 


SPACE 


380 


n 


SPACE 


381 




SPACE 


382 




SPACE 


383 




SPACE 


384 




SPACE 


385 




SPACE 


386 




SPACE 


387 




SPACE 


388 




SPACE 


389 




SPACE 


390 


n 


SPACE 


391 


MP MSOS 


SPACE 


392 


MP MSOS 


SPACE 


393 


MP MSOS 


SPACE 


394 


MP MSOS 


SPACE 


395 


MP MSOS 


SPACE 


396 


[) MP MSOS 


SPACE 


397 


MP MSOS 


SPACE 


398 



n 



o 
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PAGE 



17 



POISE 



1PC8 



JMP* TOUT "A" REG NOT USED MP MSOS SPACE 

INITIATE THE DIAGNOSTIC TIMER AND TIME-OF-DAY PROGRAMS SPACE 



399 
401 



10 



IF 



?n 



25 



P015F 


CP06 


P0160 


B011 


P016] 


0111 


P0162 


1804 


P0163 


54F4 


P0164 


5206 


P0165 


7FFF X 


P0166 


C806 


P0167 


BOH 


P0168 


0111 


P0169 


1833 


P016A 


54F4 


P016B 


5206 


P016C 


7FFF X 


P016D 


182F 



CHKTMR LDA* RSTRTA 

EOR- LPMSK+15 
SAN 1 
JMP* RSTRTT 

RTJ- (AMONI) 
NUM $5206 
RSTRTA ADC DTIMER 

RSTRTT LDA* TTRSTR 

EOR- LPMSK+15 
SAN 1 
JMP* RSTRT9 

RTJ- (AMONI) 
NUM $5206 
TTRSTR ADC UPTOD 
JMP* RSTRT9 



SKIP IF DTIMER NOT PRESENT 
START DIAG TIMER 



SKIP IF TOD PRESENT 



START TOD PROGRAM 



SPACE 403 

SPACE 404 

SPACE 405 

**MSOS 4.1** SPACE 406 

SPACE 408 

***MS0S4.0 SPACE 409 

SPACE 410 

**MS0S 4.1** SPACE 412 

**MSOS 4.1** SPACE 413 

**MSOS 4.1** SPACE 414 

**MSOS 4.1** SPACE 415 

**MSOS 4.1** SPACE 417 

**MSOS 4.1** SPACE 418 

**MSOS 4.1** SPACE 419 

**MSOS 4.1** SPACE 420 



STALL ALARM REJECT MESSAGE 



SPACE 



422 



30 



35 



40 



45 



50 



P016E 


OBOO 


P016F 


54F4 


P0170 


OCOO 


P0171 


0000 


P0I72 


0000 


P0173 


1PFC 


P0174 


0006 


P0175 


01 7A P 


P0176 


CPFB 


P0177 


0101 


P017P 


1PFD 


P0179 


1898 


P017A 


5354 


P017B 


414C 


P017C 


4C20 


P017D 


5245 


P017E 


4A45 


P017F 


4354 



SREJ NOP 

RTJ- (AMONI) 

ADC $0C00 

ADC 

SRJTH ADC 

ADC $18FC 

ADC 6 

ADC SRJMS.G 

SRJCK LDA* SRJTH 
SAZ 1 
JMP* SRJCK 
JMP* TIMSRT 



PRINT STALL REJECT MESSAGE 



WAIT FOR COMPLETION 



SRJMSG ALF 6, STALL REJECT 



SPACE 


424 


SPACE 


425 


SPACE 


426 


SPACE 


427 


SPACE 


428 


SPACE 


429 


SPACE 


430 


SPACE 


431 


SPACE 


433 


SPACE 


434 


SPACE 


435 


SPACE 


436 



SPACE 



438 
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18 



TIMER REJECT MESSAGE 



SPACE 



440 



10 



15 



20 



25 



30 



35 



P01P0 


OBOO 


P0181 


EOOO 


P0183 


E201 


P0184 


C20D 


P01P5 


A011 


P0186 


B032 


P0187 


620D 


P018R 


OAOO 


P01P9 


6400 


P01PB 


54F4 


P01PC 


OCOO 


P01PD 


onoo 


POJPE 


0000 


P01PF 


1PFC 


PP190 


0006 


P0JQ1 


0196 P 


P0192 


CPFB 


P0193 


0101 


P0194 


1PFP 


P0195 


1P07 


P0196 


5449 


P0197 


4D45 


P0198 


5220 


P0199 


5245 


P019A 


4A45 


P019B 


4354 



REJ NOP 
7FFF X LDQ =XL0G1A 
LDQ- 1,Q 
LDA- 13, Q 
AND- LPMSK+15 
EOR- ONEBIT+15 
STA- 13, Q 
ENA 
0113 X STA+ TMRTYP 

RTJ- (AMONI) 

ADC $0C00 

ADC 

REJTH ADC 

ADC $18FC 

ADC 6 

ADC REJMSG 

REJCK LDA* REJTH 
SAZ 1 
JMP* REJCK 
JMP* RSTRT9 



DISABLE DELAYED CORE SWAPS 
INDICATE NO TIMER 

PRINT TIMER REJECT MSG 



WAIT FOR COMPLETION 





SPACE 


442 


**MSOS 4.1** 


SPACE 


443 


**MSOS 4.1** 


SPACE 


444 


**MSOS 4.1** 


SPACE 


445 


**MSOS 4.1** 


SPACE 


446 


**MSOS 4.1** 


SPACE 


447 


**MSOS 4.1** 


SPACE 


448 


**MSOS 4.1** 


SPACE 


449 


**MSOS 4.1** 


SPACE 


450 




SPACE 


452 




SPACE 


453 




SPACE 


454 




SPACE 


455 




SPACE 


456 




SPACE 


457 




SPACE 


458 




SPACE 


460 




SPACE 


461 




SPACE 


462 




SPACE 


463 



REJMSG ALF 6, TIMER REJECT 



**MSOS 4.1** SPACE 



465 



n 



'^\ 



o 



o 
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19 



IF SYSTEM CONTAINS A 1781-1 HARDWARE FLOATING POINT UN 
CLEAR THE UNIT AND SET IT'S INITIAL OPERATING MODE 



10 



15 



20 



25 



30 



35 



40 



P010C 


C400 


P019E 


0822 


P019F 


BOH 


P01A0 


0111 


P01A1 


1818 


P01A2 


OPFC 


P01A3 


0A01 


P01A4 


0305 


P01A5 


C400 


P01A7 


0302 


P01A8 


1811 



P01A9 



7FFF X 



7FFF X 



RSTRT9 LDA E17811 
TRA Q 
EOR- $11 
SAN RSTR9A 
JMP* RSTR10 • 

RSTR9A INQ -3 
ENA 1 

OUT HFPREJ-* 
LDA F17813 
. OUT HFPREJ-* 
JMP* RSTR10 



PICKUP 1781-1 EQUIPMENT CODE 

SAVE IN 

($7FFF) CHECK FOR UNPATCHED 

SKIP IF PATCHED 

BYPASS STARTUP IF UNPATCHED 

SET Q FOR 1781-1 FSR LOAD 

CLEAR 1781-1 

PICK UP INITIAL OPERATING FUNCTION 

OUTPUT TO UNIT 

CONTINUE 



OB 00 



HFPREJ NOP 
FWRITE 



$FC,0,HFPRJM,HFPRJL,A.O,0,I 



P01AA 


54F4 


P01AB 


OCOO 


P01AC 


0000 


P01AD 


0000 


P01AE 


18FC 


P01AF 


0007 


P01B0 


01B2 P 


P01B1 


1808 


P01B? 


3137 


P01B3 


3831 


P01B4 


2D31 


P01B5 


2052 


P0IB6 


454A 


P01B7 


4543 


P01B8 


5420 



JMP* RSTR10 CONTINUE 



HFPRJM ALF *, 1781-1 REJECT* 



SPACE 


467 


SPACE 


468 


SPACE 


4 70 


SPACE 


471 


SPACE 


472 


SPACE 


473 


SPACE 


474 


SPACE 


475 


SPACE 


476 


SPACE 


477 


SPACE 


478 


SPACE 


479 


SPACE 


480 


SPACE 


482 


SPACE 


483 



SPACE 484 



SPACE 486 



0007 



HFPRJL EQU HFPRJL(*-IIFPRJM) 



SPACE 487 



1700 ASSEMBLY OF SPACE 
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20 



PRINT THE SYSTEM PSR LEVEL AND DATE OF BUILD 



SPACE 



489 



10 



IB 



20 



25 



30 



35 



P01B9 


C800 


0129 


RSTR10 


i LDA 


MONTH 




P01BB 


BOH 






EOR- 


LPMSK+15 


IS THE BUILD DATE PATCHED 


P01BC 


0111 






SAN 


1 




P01BD 


1817 






JMP* 


PSRMSG 


NO 


P01BE 


C800 


0124 




LDA 


MONTH 




P01C0 


0C20 






ENQ 


$20 


ADD LEADING SPACE 


P01C1 


0FE8 






LLS 


8 




P01C2 


092F 






INA 


$2F 


ADD TRAILING SLASH 


P01C3 


4800 


OOFF 




STQ 


DATE+1 




P01C5 


6800 


OOFE 




STA 


DATE+2 


FORM SYSTEM BUILD DATE 


P01C7 


C800 


one 




LDA 


DAY 




P01C9 


6800 


00FB 




STA 


DATE+3 




P01CB 


C800 


0119 




LDA 


YEAR 




P01CD 


0C2F 






ENQ 


$2F 


ADD LEADING SLASH 


POICE 


0FE8 






LLS 


8 




P01CF 


0920 






INA 


$20 


ADD TRAILING SPACE 


poino 


4800 


OOF 5 




STQ 


DATE+4 




P0ID2 


6800 


00F4 




STA 


DATE+5 




P01P4 


54F4 




PSRMSG RTJ- 


(AMONI) 


PRINT THE MESSAGE 


P01D5 


0C01 






APC 


$0C01 




POlDfi 


0000 






ADC 







P01P7 


0000 




TX 


ADC 







P01D8 


18FC 






ADC 


$18FC 




P01P9 


0014 






ADC 


LSIIMLV 




POIDA 


02R5 P 






ADC 


SUMLVL 




PP1DB 


C8FB 




LTX 


LDA* 


TX 




P01DC 


0101 






SAZ 


A101M 




P01DD 


18FI) 






JMP* 


LTX 


WAIT FOR COMPLETION 







SPACE 


491 


**MSOS 


4.1** 


SPACE 


492 


**MSOS 


4.1** 


SPACE 


493 


**MSOS 


4.1** 


SPACE 


494 


**MSOS 


4.1** 


SPACE 


495 


**MSOS 


4.1** 


SPACE 


496 


**MSOS 


4.1** 


SPACE 


497 


**MSOS 


4.1** 


SPACE 


498 


**MSOS 


4.1** 


SPACE 


499 


**MSOS 


4.1** 


SPACE 


500 


**MSOS 


4.1** 


SPACE 


501 


**MSOS 


4.1** 


SPACE 


502 


**MSOS 


4.1** 


SPACE 


503 


**MSOS 


4.1** 


SPACE 


504 


**MSOS 


4.1** 


SPACE 


505 


**MSOS 


4.1** 


SPACE 


506 


**MSOS 


4.1** 


SPACE 


507 


**MSOS 


4.1** 


SPACE 


508 


**MSOS 


4.1** 


SPACE 


510 






SPACE 


511 






SPACE 


512 






SPACE 


513 






SPACE 


514 






SPACE 


515 






SPACE 


516 






SPACE 


518 






SPACE 


' 519 






SPACE 


520 



o 



o 



1700 ASSEMBLY OF SPACE 



o 



CLASS - VER 3.0 08/21/80 00.20.23. PAGE 21 
DETERMINE THE POSITION OF THE PROGRAM PROTECT SWITCH SPACE 522 



10 



IF 



20 



25 



30 



P01DE 


0500 




A101M 


UN 









**MSOS 4.1** 


SPACE 


524 


P01DF 


C400 


0101 


A101 


LDA+ $101 


SAVE THE CONTENTS OF THE 


TRAP 


50*919 


SPACE 


525 


P01E1 


6810 






STA* 


S101+1 






50*919 


SPACE 


526 


P01E2 


C400 


0102 


A102 


LPA+ 


$102 






50*919 


SPACE 


527 


P01F4 


6810 






STA* 


S102+1 






50*919 


SPACE 


528 


P01E5 


080C 






TRM 


A 


SAVE THE CONTENTS OF "M" 




50*919 


SPACE 


529 


P01E6 


fiPIE 






STA* 


SM+1 






50*919 


SPACE 


530 


P01E7 


COOO 


1400 




LDA 


=N$1400 


SET UP RETURN 




50*919 


SPACE 


531 


P01E9 


6CF6 






STA* 


(A101+1) 






50*919 


SPACE 


532 


P01EA 


EOOO 


01F2 P 




LPQ 


=XFAULT 






50*919 


SPACE 


533 


P01EC 


0700 






CPB 









50*919 


SPACE 


534 


P01ED 


0A01 






ENA 


1 






50*919 


SPACE 


535 


P01EE 


0821 






TRA 


M 


ALLOW ONLY A PP FAULT 




50*919 


SPACE 


536 


P01EF 


0006 






INQ 


6 






**MSOS 4.1** 


SPACE 


537 


P01F0 


4CF2 






STQ* 


(A102+1) 






50*919 


SPACE 


538 


P01F1 


0400 






EIN 









51*919 


SPACE 


539 


P01F2 


4CF0 




FAULT 


STQ* 


(A102+1) 






50*919 


SPACE 


540 


P01F3 


C800 


OOAF 




LDA 


PPFLAG 


IS THIS THE FIRST PASS 






SPACE 


541 


P01F5 


0103 






SAZ 


HANG IT 


NO, HANG WAITING FOR PP 


SET 


**MSOS 4.1** 


SPACE 


542 


P01F6 


D800 


OOAD 




RAO 


FLAGIT 


SET FLAG FOR SET PP MESSAGE 




SPACE 


543 


P01F8 


1802 






JMP* 


GOPP 


GO TO RESTORE PROTECT SETUP 


**MSOS 4.1** 


SPACE 


544 


P01F9 


18F8 




HANG IT 


JMP* 


FAULT 


WAIT FOR PP FAULT 




**MSOS 4.1** 


SPACE 


545 


P01FA 


01E0 




GOPP 


SPF 





CLEAR PROTECT FAULT 




**MSOS 4.1** 


SPACE 


546 


P01FB 


0DF9 






INQ 


-6 






**MSOS 4.1** 


SPACE 


547 


P01FC 


OfiOO 






SPB 





RETURN TO PRIOR STATUS 




50*919 


SPACE 


548 



17D0 ASSEMBLY OF SPACE 



in 



15 



20 



25 



30 



P01FP 


cono 


0000 


P01FF 


6CE0 




P0200 


cooo 


0000 


P0202 


6CE0 




P0203 


COOO 


0000 


P0205 


0821 




P0206 


0400 




P0207 


C800 


009B 


P0209 


0111 




P020A 


1812 




P020R 


C800 


0098 


P020D 


01 OE 




P020E 


0844 




P020F 


6800 


0093 


P0211 


•54F4 




P0212 


0C01 




P0213 


0000 




P0214 


0000 




P0215 


18FC 




P0216 


OOOC 




P02J7 


02C9 P 




P0218 


CPFB 




P021° 


0101 




P021A 


18FD 




P021B 


1PC2 











CLASS - VER 3 


.0 


08/21/80 


00.20.23. 


PAGE 


22 


S101 


LDA 


=N0 








50*919 


SPACE 


550 




STA* 


(A101+1) 








50*919 


SPACE 


551 


S102 


LDA 


=N0 








50*919 


SPACE 


552 




STA* 


(A102+1) 








50*919 


SPACE 


553 


SM 


LPA 


=N0 








50*919 


SPACE 


554 




TRA 


M 








50*919 


SPACE 


555 




EIN 











50*919 


SPACE 


556 




LDA 


PPFLAG 


IS THIS FIRST TIME 


THROUGH 




SPACE 


557 




SAN 


S103 










SPACE 


558 




JMP* 


OUT ID 


SECOND PASS 








SPACE 


559 


S103 


LDA 


FLAGIT 


IS THIS FIRST TIME 


BUT 


NEED MSG 




SPACE 


560 




SAZ 


OUT ID 


SKIP IF NO MSG NFEDED 




**MSOS 4.1** 


SPACE 


561 




CLR 


A 


NEED TO SET PP 






**MSOS 4.1** 


SPACE 


562 




STA 


PPFLAG 


SECOND TIME FLAG 








SPACE 


563 




RTJ- 


(AMONI) 


WRITE PP MESSAGE 






**MSOS 4.1** 


SPACE 


565 




ADC 


$0C01 








**MSOS 4.1** 


SPACE 


566 




ADC 











**MSOS 4.1** 


SPACE 


567 


PPTH 


ADC 











**MSOS 4.1** 


SPACE 


568 




ADC 


$18FC 








**MSOS 4.1** 


SPACE 


569 




ADC 


12 








**MSOS 4.1** 


SPACE 


570 




ADC 


PP 








**MSOS 4.1** 


SPACE 


571 


PPWAIT 


LDA* 


PPTH 








**MSOS 4.1** 


SPACE 


573 




SAZ 


OUTPP 








**MSOS 4.1** 


SPACE 


574 




.JMP* 


PPWAIT 


WAIT FOR COMPLETION 


I 




**MSOS 4.1** 


SPACE 


575 


OUTPP 


JMP* 


A101M 


GO WAIT FOR PP SET 






**MSOS 4.1** 


SPACE 


576 



o 



o 



1700 ASSEMBLY OF SPACE 



CLASS - VER 3.0 08/21/80 00.20.23. PAGE 23 



PRINT THE SYSTEM IDENTIFICATION 



**MS0S 4.1** SPACE 



578 



10 



IF 



20 



25 



30 



35 



40 



P021C 


COOO 


7FFF 


X 


OUT 1 1) 


LDA 


=XSYSID 






**MSOS 


4.1** 


SPACE 


580 


P021E 


BOH 








EOR- 


LPMSK+15 


IS THE IDENTIFICATION PATCHED 


**MSOS 


4.1** 


SPACE 


581 


P021F 


0111 








SAN 


ID1 






**MSOS 


4.1** 


SPACE 


582 


P0220 


1822 








JMP* 


MODE 


NO, DONT PRINT IT 




**MSOS 


4.1** 


SPACE 


583 


P0221 


C400 


0210 


X 


mi 


LDA+ 


SYSID 






**MSOS 


4.1** 


SPACE 


584 


P0223 


6800 


0084 






STA : 


SAVID 










SPACE 


585 


P0225 


A009 








AND- 


LPMSK+7 






**MSOS 


4.1** 


SPACE 


586 


P0226 


BOOO 


OPOO 






EOR 


=N$OPOO 


ADD AN EXTRA CARRIAGE RETURN 


**MSOS 


4.1** 


SPACE 


587 


PP228 


6400 


0222 


X 




STA+ 


SYSID 






**MSOS 


4.1** 


SPACE 


588 


P022A 


OCOF 








ENQ 


15 


FIND THE END OF THE TRAILING 


**MSOS 


4.1** 


SPACE 


590 


P022B 


C600 


0229 


X 


ID2 


LOA+ 


SYSID, 


BLANKS IN THE IDENTIFICATION 


**MSOS 


4.1** 


SPACE 


591 


P022D 


9000 


2020 






SUB 


=A 






**MSOS 


4.1** 


SPACE 


592 


P022F 


0113 








SAN 


ID3 


FOUND THE END 




**MSOS 


4.1** 


SPACE 


593 


P0230 


OOFE 








INQ 


-1 






**MSOS 


4.1** 


SPACE 


594 


P0231 


01 70 








SQM 


ID4 


ALL BLANK, DONT PRINT 




**MSOS 


4.1** 


SPACE 


595 


P0232 


1PF8 








JMP* 


ID2 






**MSOS- 


4.1** 


SPACE 


596 


P0233 


0001 






ID3 


INQ 


1 






**MSOS 


4.1** 


SPACE 


597 


P0234 


4806 








STQ* 


IDL 


FORM THE MESSAGE LENGTH 




**MSOS 


4.1** 


SPACE 


598 


P0235 


54F4 








RTJ- 


(AMONI) 


PRINT THE IDENTIFICATION 




**MSOS 


4.1** 


SPACE 


600 


P0236 


0C01 








AOC 


$0C01 






**MSOS 


4.1** 


SPACE 


601 


P0237 


0000 








ADC 









**MSOS 


4.1** 


SPACE 


602 


P0238 


0000 






• IDTH 


ADC 









**MSOS 


4.1** 


SPACE 


603 


P0239 


1PFC 








ADC 


$18FC 






**MSOS 


4.1** 


SPACE 


604 


P023A 


0000 






IDL 


ADC 









**MSOS 


4.1** 


SPACE 


605 


P023B 


022C X 








ADC 


SYSID 






**MSOS 


4.1** 


SPACE 


606 


P023C 


C8FB 






IDWAIT 


LDA* 


IDTH 






**MSOS 


4.1** 


SPACE 


608 


P023D 


0101 








SAZ 


ID4 






**MSOS 


4.1** 


SPACE 


609 


P023E 


18FD 








JMP* 


IDWAIT 


WAIT FOR COMPLETION 




**MSOS 


4.1** 


SPACE 


610 


P023F 


CP69 






104 


LPA* 


SAVID 






**MSOS 


4.1** 


SPACE 


612 


P0240 


6400 


023B 


X 




STA+ 


SYSID 


RESTORE LEADING BLANK IN 


THE ID 


**MSOS 


4.1** 


SPACE 


613 



17P0 ASSEMBLY OF SPACE 



10 



IF 



20 



25 



30 



3* 



<W 



4* 



pn?/>? 


CC63 




MOPE 


LOA* 


(11) 


P0?43 


BP64 






EOR* 


13 


PO?AA 


nioi 






SAZ 


M3?K 


PP24F 


1P04 






JMP* 


M65K 


PP?46 


coop 


P2PF P 


M32K 


LPA 


=XX3?K 


PP?4p 


1805 






JMP* 


STO 


pn?4p 


COPO 


02PC P 


M65K 


LPA 


=XX65K 


PO?4B 


OCPl 






ENQ 


1 


pn?ic 


44FO 






STO- 


($E9) 


pn?/ip 


6807 




STO 


STA* 


MMODE 


pn?4E 


54F4 






RTJ- 


(AMONI) 
$0C01 


PP24F 


ocm 






ADC 


po?5p 


OOPO 






ADC 





P0251 


0000 




MODETH 


ADC 





pn?5? 


1PFC 






ADC 


$18FC 


P0253 


0007 






ADC" 


7 


P0254 


0000 




MMODE 


ADC 





P0255 


CPFB 




MOOWAT 


LDA* 


MODETH 


P0256 


0101 






SAZ 


FILCLS 


P0257 


1PFD 






JMP* 


MODWAT 


P02FB 


COOO 


7FFF X 


FILCLS 


LDA 


=XJBFLV4 


PP25A 


010? 






SAZ 


FILCHK 


po?fr 


5P00 


01B3 




RTJ 


CLSFIL 


po;>fp 


FPPP 


OPPP 


FILCHK 


RTJ 


BONES 


PO?^F 


05P0 






UN 





pp;'fin 


EP4P 




Tl 


LDO* 


ATC 


PP261 


EA49 






LPO* 


T,0 


pn;>6? 


PP14 






TRQ 


A 


PP263 


BOH 






EOR- 


LPMSK+1F. 


pp;>64 


0107 






SAZ 


TIB 


pn;>65 


C622 






LDA- 


(ZER0),Q 


PP266 


0107 






SAZ 


SETPF 


pn;»67 


C400 


7FFF X 




LDA 


PCORE 


po;>fio 


A0P6 






AND- 


LPMSK+4 


P026A 


B622 






EOR- 


(ZERO),Q 


PP26B 


6622 






STA- 


(ZERO),Q 


po;»6C 


PP3P 




TIB 


RAO* 


ATC 


P0260 


1PF2 






JMP* 


Tl 



CLASS - VER 3.0 08/21/80 


00.20. 


23 


1. 


PACE 


24 


SIZE MODE, AND PRINT IT 








SPACE 


615 


CHECK MULTI-LEVEL INDIRECT 


**MSOS 


4. 


,1** 


SPACE 


617 


FOR MOPE 


**MSOS 


4. 


. ]** 


SPACE 


618 




**MSOS 


4. 


, 1 ** 


SPACE 


619 




**MSOS 


4. 


. 1** 


SPACE 


620 


SETUP 32K MODE 


**MSOS 


4. 


1** 


SPACE 


621 




**MSOS 


4. 


1 1** 


SPACE 


622 


SETUP 65K MODE 


**MSOS 


4. 


. ]** 


SPACE 


623 




**MSOS 


4. 


, 1** 


SPACE 


624 


SET MODE FLAG 


**MSOS 


4. 


1** 


SPACE 


625 




**MSOS 


4. 


, 1** 


SPACE 


626 


WRITE MODE MESSAGE 


**MSOS 


4. 


i ** 


SPACE 


628 




**MSOS 


4. 


. 1** 


SPACE 


629 




**MSOS 


4. 


1** 


SPACE 


630 




**MSOS 


4. 


]** 


SPACE 


631 




**MSOS 


4. 


1** 


SPACE 


632 




**MSOS 


4. 


. 1** 


SPACE 


633 




**MSOS 


4. 


1** 


SPACE 


634 




**MSOS 


4. 


]•* 


SPACE 
SPACE 


636 
637 


WAIT FOR COMPLETION 


**MSOS 


4. 


j** 


SPACE 
SPACE 
SPACE 


638 
639 
640 


GO CLOSE ALL JOB FILES 








SPACE 


641 


GO CHECK FOR FILE ERRORS 








SPACE 


643 


INHIBIT WHILE SETTING PRIORITIES 








SPACE 


644 


LOAD WITH COUNT VALUE 








SPACE 


645 


GET ADDRESS FROM TABLE 








SPACE 


646 


DO NOT SET PRIORITY IF 








SPACE 


647 


EXTERNAL IS UNPATCHED 








SPACE 
SPACE 


648 
649 


IF VALUE OF ADDRESS IS ZERO 








SPACE 


650 


TABLE IS COMPLETED 








SPACE 


651 


GET CORE DRIVER COMPLETION PRIORITY 






SPACE 


652 










SPACE 


653 


AND 








SPACE 


654 


STORE BACK INTO REQUEST 








SPACE 


655 


CONTINUE SETTING PRIORITIES 








SPACE 
SPACE 


656 
657 



o 



o 
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PARE 



25 



CHECK IF NEED TO SET UP PACE FILE FOR EXTENDED CORE STORAGE 



IB 



20 



25 



30 



35 



40 



45 



50 



P02KE 


COOO 


P0270 


B01J 


P0271 


0111 


P0272 


1829 


P0273 


0C1F 


P0274 


0814 


P0275 


OFCB 


PP276 


0874 



7FFF X 



P0277 

P027P 
P0279 
P027A 
P027B 



P027C 
P027D 
P027F 
P027F 
P02P1 
P02P2 
P02P3 
P02P4 
P02P5 
P02P6 
P02PP 

P02P9 
P02PA 
P028C 
P028D 
P02PE 

P02P0 

P02P2 
PP293 
P02P4 
P0295 
P0?9fi 
P02°7 
PO?op 
pppog 
P02«A 



0BC3 

0142 
ODFE 
1PFP 
OBOC 



0A2P 
6P1D 
OFOO 
9400 
0133 
0102 
OICO 
1P17 
CP15 
B400 
0BC3 



SETPF 



SPF 
SPF1 



7FEF X 



7FFF X 



COOD 

B400 7FFF X 

6803 

6804 

C400 0000 

028F P 
6400 0000 

0291 P 
C8FE 
AOOD 
0102 
09FE 
1PF3 
PP03 
CP02 
1PE5 
0000 



SPF 5 

* 
* 

RSET1 

RSET2 

* 
RSET4 

LRSET 
SRSET 

RSET6 
PFCNT 



LDA =XP18ECM 
EOR- LPMSK+15 
SAN SPF 
JMP* T1AA 

31 

A 

11 

A 



ENQ 
TRQ 
ALS 
EAQ 



FETCH EXTENDED CORE POINTER 



SKIP IF ECM IN THE SYSTEM 



SEI LAST PAGE FILE ADDRESS 



PAGE FILE SELECTED. BITS 11-15 

VALUE SET . BITS 0-R 
BITS 0-P OF A GO INTO PAGE FILE SPECIFIED BY BITS 11-15 OF A 
BIT 10 SPECIFIES FILE OR 1 FOR PAGE FILE ZERO 
NUM $0BC3 HARD CODE ENHANCED INSTRUCTION 
WPR A SET UP THIS PAGE FILE 

SOZ SPF5 SKIP IF ALL FILE ENTRIES SET 
I NO -1 

JMP* SPF1 CONTINUE SETTING PAGE FILES 
NUM $OBOC SET PAGE MOPE TO ZERO 
WANT TO RESET UPPER CORE IN CASE OF PARITY IN MOS MEMORY. 
FETCH AND RESTORE WILL CLEAR ANY PARITY AND NOT CHANGE UPPER 



ENA $20 
STA* PFCNT 
UN 

P1PMXP 
RSET2 
RSET2 




SUB 
SAM 
SAZ 
SPE 



JMP* T1AA 
LDA* PFCNT 



EOR 
NUM 
WPR 
LDA 
EOR 



P18PGA 

$0BC3 

A . 

LPMSK+11 

P1PADD 
STA* LRSET 
STA* SRSET 
LDA+ 0000 
EOH LRSET(*-1) 
STA+ 0000 



BIAS TO FIRST 65K OF UPPER CORE 



MINUS MAXIMUM PACE IN SYSTEM 

SKIP IF NOT END 

SKIP IF NOT DONE 

CLEAR PARITY INI AMD STATUS 



BRING IN ECM PAGE ADDRESS BITS 10-15 
HARD CODE ENHANCED INSTRUCTION 
SET UP THIS PAGE FILE 
$7FF LAST ADDRESS IN 2K BLOCK 
OR IN BLOCK ADDRESS 



SRSET(*-1) 

SRSET 

LPMSK+11 

RSET6 

-1 

RSET4 
RAO* PFCNT 
LDA* PFCNT 
JMP* RSET1 
NUM 



EQU 

LDA* 

AND- 

SAZ 

INA 

JMP* 



SAVE 2K ADDRESS ONLY 



SPACE 


(.59 


SPACE 


660 


SPACE 


661 


SPACE 


662 


SPACE 


663 


SPACE 


664 


SPACE 


665 


SPACE 


666 


SPACE 


667 


SPACE 


668 


SPACE 


669 


SPACE 


670 


SPACE 


671 


SPACE 


672 


SPACE 


673 


SPACE 


674 


SPACE 


675 


SPACE 


676 


SPACE 


677 


CORE SPACE 


678 


SPACE 


679 


SPACE 


6P0 


SPACE 


6R1 


SPACE 


682 


SPACE 


683 


SPACE 


684 


SPACE 


685 


SPACE 


686 


SPACE 


687 


SPACE 


688 


SPACE 


689 


SPACE 


690 


SPACE 


691 


SPACE 


692 


SPACE 


693 


SPACE 


694 


SPACE 


695 


SPACE 


696 


SPACE 


697 


SPACE 


698 


SPACE 


699 


SPACE- 


700 


SPACE 


701 


SPACE 


702 


SPACE 


703 


SPACE 


704 


SPACE 


705 


SPACE 


706 


SPACE 


707 
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in 



JF 



?P 



25 



30 



P02PB 


p/ino 






T1AA 


EIN 


P 


PO?<iC 


PAOO 








ENA 


o • 


pp, -..p 


640P 




PPFP X 




STA 


MIBX 


P02<>F 


6400 




0052 X 




STA 


EFLPCK 


pn?/>i 


J8PP 




FP71 




JMP 


TOIDI.E 


P0?A3 


PPP1 






PPFLAfi 


NUM 


1 


pn?A4 


PPPP 






FLAG IT 


NUM 


P 


PP2A5 


P2A6 


P 




11 


APC 


(12) 


P02A6 


P2A7 


P 




12 


APC 


13 


PP2A7 


7F«C 






13 


NUM 


*7F9C 


PP2AP 


PPPP 






SAVIP 


NUM 





PP2A9 


PPPP 






ATC 


NUM 





P02AA 


7FFF 


X 




T 


ADC 


OUTPUT 


PP2AR 


7FFF 


X 






ADC 


SPACE4 


P02AC 


7FFF 


X 






ADC 


N0G3OA 


PP2AP 


7FFF 


X 






ADC 


REL 


P02AE 


7FFF 


X 






ADC 


SCH 


PP?AF 


7FFF 


X 






ADC 


PTNALC 


P02BP 


7FFF 


X 






ADC 


PTNREL 


P02B1 


7FFF 


X 






ADC 


SPCEV4 


P02B2 


7FFF 


X 






ADC 


RDPTV4 


PP?B3 


7FFF 


X 






ADC 


0UTPV4 


P02B4 


0022 








ADC 


ZERO 



CLASS - VER 3.0 08/21/80 



CLEAR MI PRO AND 
LOGGER LOCKOUT FLAGS 
GO TO IDLE EXIT 



INDEX FOR TABLE 



THIS IS USED TO INDICATE THE END 



00.20.24. 


PAGE 


26 




SPACE 


709 


**MSOS 4.1** 


SPACE 


710 




SPACE 


711 


**MSOS 4.1** 


SPACE 


712 


**MSOS 4.1** 


SPACE 


713 


**MSOS 4.1** 


SPACE 


715 


**MSOS 4.1** 


SPACE 


716 


**MSOS 4.1** 


SPACE 


718 


**MSOS 4.1** 


SPACE 


719 


**MSOS 4.1** 


SPACE 


720 


**MSOS 4.1** 


SPACE 


721 




SPACE 


723 




SPACE 


724 




SPACE 


725 




SPACE 


726 




SPACE 


727 




SPACE 


728 




SPACE 


729 




SPACE 


730 




SPACE 


731 




SPACE 


732 




SPACE 


733 




SPACE 


734 



n 
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10 



15 



?0 



25 



30 



35 



40 



45 



50 



55 



P02B5 


OPOA 


P02B6 


4P53 


P0?B7 


4F53 


P02B8 


2035 


P02B9 


2E30 


P02BA 


2P2P 


P02BB 


5053 


P02BC 


5220 


P02BP 


4C45 


P02BE 


5645 


P02BF 


4C20 


P02C0 


2031 


P02C1 


7FFF X 


P02C2 


2020 


P02C3 


2020 


P02C4 


2020 


P02C5 


2020 


P02C6 


2020 


P02C7 


2020 


P02CR 


200P 


P02C9 


200P 


PP2CA 


5345 


P02CB 


5420 


P02CC 


5052 


P02CH 


4F47 


P02CE 


5241 


P02CF 


4P20 


P02P0 


5052 


P02D1 


4F54 


PO202 


4543 


P02P3 


5420 


P02P4 


200P 


P0205 


OPOA 


P02P6 


3332 


P02D7 


4B20 


P0208 


4P4F 


P02D9 


4445 


POPPA 


OPOA 


P020B 


200D 


P02PC 


OPOA 


P02PP 


3635 


P02PE 


4B20 


P02PF 


4P4F 


P02F0 


4445 


P02FJ 


OPOA 


P02E2 


2P0P 


P02E3 


7FFF X 


P0?E4 


7FFF X 


P02E5 


7FFF X 



SUMLVL NUM $0P0A . 

ALF 10.MS0S 5.0— PSR LEVEL 



PAGE 


27 


SPACE 


736 


SPACE 


737 



NUM $2031 
• ARC SYSLVL 
PATE ALF 6, 



FOR PSR SUMMARIES OVER 100 SPACE 

SYSLVL ISC2 LEAST SIGNIFICANT DIGITS SPACE 

**MS0S 4.1** SPACE 



0014 



PP 



NUM $200P 

EQU LSUMLV(*-SUMLVL) 

NUM J200P 

ALF 10, SET PROGRAM PROTECT 



NUM $200D 

X32K NUM $0D0A 

ALF 4.32K MODE 



NUM $OPOA 

NUM $200D 

X65K NUM $0D0A 

ALF 4,65K MOPE 



NUM $PPPA 

NUM $200P 

MONTH ADC SYSMON 

PAY APC SYSPAY 

YEAR APC SYSYER 



SPACE 
**MSOS 4.]** SPACE 

SPACE 
**MSOS 4.1** SPACE 



**MSOS 4.1** SPACE 



738 
739 

740 



741 
742 

744 
745 



746 



**MS0S 


4, 


. 1** 


SPACE 


748 


**MSOS 


4. 


, 1** 


SPACE 


749 


**MSOS 


4. 


1** 


SPACE 


750 


**MS()S 


4. 


. 1** 


SPACE 


751 


**MSOS 


4. 


1** 


SPACE 


753 


**MSOS 


4. 


. 1** 


SPACE 


754 


**MSOS 


4. 


1** 


SPACE 


755 


**MSOS 


4. 


] ** 


SPACE 


756 


**MSOS 


4. 


1** 


SPACE 


758 


**MSOS 


4. 


1** 


SPACE 


759 


**MSOS 


4. 


1** 


SPACE 


760 
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PAGE 



28 



SUBROUTINE TO CHECK ALL FILE HANACER SPACE THREADS 



SPACE 



762 



]0 



15 



20 



25 



30 



35 



40 



P02E6 


OBOO 


BONES NOP 









SPACE 


764 


P02E7 


C861 


LDA* 


FSPNT 






SPACE 


765 


PP2E8 


9PJ] 


SUB- 


LPMSK+15 


IS THERE A FILE MANAGER IN THIS 


SYSTEM 


SPACE 


766 


PP2E9 


0111 


SAN 


1 


YES 




SPACE 


767 


P02EA 


1CFB 


JMP* 


(BONES) 


NO, RETURN 




SPACE 


768 


P02EB 


PCOO 


ENQ 









SPACE 


770 


P02EC 


5800 OPEC 


RTJ 


MESSAG 


PRINT INITIAL MESSAGE 




SPACE 


771 


PP2EE 


C400 7FFF 


X LDA+ 


ADRFMS 






SPACE 


772 


P02F0 


6864 


STA* 


SECTOR 


INITIALIZE THE LIBRARY UNIT SPACE ADDRESS 


SPACE 


773 


P02F1 


CC57 


BONE SO LOA* 


(FSPNT) 


GET FSLIST POINTER 




SPACE 


774 


P02F2 


POPP 


INA 





IS THIS THE END OF THE LIST 




SPACE 


775 


P02F3 


0114 


SAN 


B0NES1 


NO 




SPACE 


776 


P02F4 


0C01 


ENQ 


1 


YES, PRINT FINAL MESSAGE 




SPACE 


777 


P02F5 


5800 ooe: 


\ RTJ 


MESSAG 






SPACE 


778 


IWF7 


1CEE 


JMP* 


(BONES) 


AND RETURN 




SPACE 


779 


P02FP 


0842 


B0NES1 CLR 


Q 






SPACE 


780 


P02F9 


4853 


STQ* 


ACCUM 


CLEAR LU AVAILABLE ACCUMULATOR 




SPACE 


781 


P02FA 


0FE9 


LLS 


9 


SHIFT LU ENTRY LENGTH INTO Q 




SPACE 


782 


P02FB 


0FC7 


ALS 


7 


SHIFT LU NUMBER INTO A - 




SPACE 


783 


P02FC 


484E 


STQ* 


LUENTL 


SAVE LU ENTRY LENGTH 




SPACE 


784 


P02FI) 


6B7A 


STA* 


MMLU 


SET UP LU FOR READ 




SPACE 


785 


P02FE 


E84A 


LDQ* 


FSPNT 


GET LIST POINTER INTO Q 




SPACE 


786 


P02FF 


C201 


LDA- 


1.0 


GET START OF FILE SPACE POOL 




SPACE 


787 


P0300 


684B 


STA* 


BGSCPL 


AND SAVE IT 




SPACE 


788 


P0301 


C202 


LDA- 


2,Q 


GET NUMBER OF AVAILABLE SECTORS 




SPACE 


. 789 


P0302 


6P4B 


STA* 


FSENTO 


AND SAVE IT 




SPACE 


790 


P03P3 


0D04 


INQ 


4 


INCREASE POINTER AROUND HEADER WORDS 


SPACE 


791 


P0304 


4845 


STQ* 


FSLUPT 


AND SAVE AS LU ENTRY POINTER 




SPACE 


792 


P0305 


0116 


SAN 


B0NES2 


SKIP IF FSLIST HAS BEEN SET UP 




SPACE 


793 


P0306 


C842 


LOA* 


FSPNT 


GET POINTER TO CURRENT LU ENTRY 




SPACE 


794 


P0307 


8843 


ADD* 


LUENTL 


INCREMENT IT BY LENGTH OF THE 


ENTRY 


SPACE 


795 


P0308 


6840 


STA* 


FSPNT 


AND STORE IT AS THE CURRENT LU ENTRY POINTER 


SPACE 


796 


P03PP 


0844 


CLR 


A 






SPACE 


797 


P030A 


6842 


STA* 


ACCOM 


CLEAR ACCUMULATOR 




SPACE 


798 


P03PB 


1825 


JMP* 


BONES 7 


CO PROCESS NEXT LU 




SPACE 


799 



o 



o 
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PAGE 



29 



10 



1? 



?0 



25 



30 



35 



40 



P030C 


CP3F 


P0300 


01 OF 


P030E 


5P5P 


P030F 


CR44 


P0310 


6P3F 


P0311 


8P3R 


P031? 


6P3A 


P0313 


C83F 


P0314 


9P37 


P0315 


0111 


P0316 


i96F 


P0317 


C83B 


P031P 


f»P33 


P0319 


C838 


P031A 


6834 


P031B 


5P17 


P031C 


1PEF 


P031D 


CP2C 


P031E 


9P2A 


P031F 


982B 


P0320 


0137 


P0321 


C8?B 


P0322 


9P?B 


P0323 


0101 


P0324 


1P61 


P0325 


CP24 


P0326 


6P22 


P0327 


1P09 


P032P 


CC21 


P0329 


6P25 


P032A 


PP1F 


P032B 


CC1E 


PP32C 


6823 


P0320 


PP1C 


P032E 


5P04 


P032F 


18ED 


P0330 


DP20 


P0331 


18BF 



R0NES2 LOA* BGSCPL GET POINTER TO NEXT FILE SPACE POOL HEADER 

SAZ B0NES3 IF IT IS ZERO WE ARE DONE WITH SPACE POOL 

RTJ* RPMASS REAP HEADER 

LPA* MMBUFF+2 GET BLOCK SIZE 

STA* BLKSIZ AND SAVE IT 

ADD* ACCHM INCREMENT ACCUMULATOR 

STA* ACCUM BY THE SIZE OF THIS BLOCK 

LPA* MMBUFF+1 GET POINTER TO NEXT HEADER 

SUB* BGSCPL DOES THE THREAD POINT TO ITSELF 

SAN B0NES6 NO 

JMP* ERROR YES, ERROR 
B0NES6 LOA* MMBUFF-fl 

STA* BGSCPL SAVE HEADER POINTER 

LDA* MMBUFF GET THREAD POINTER 

STA* THDPNT AND SET UP TO ANALIZE IT 

RTJ* ANATIID ANALIZE THREAD 

JMP* B0NES2 GO GET NEXT HEADER AND SET IT UP FOR ANALYSIS 

B0NES3 LDA* FSLUPT LOAD LU POINTER 

SUB* FSPNT SUBTRACT POINTER TO FIRST WORD FOR THIS HI 

SUB* LUENTL SUBTRACT LENGTH OF THIS LUS ENTRY 

SAM B0NES4 IF NEGATIVE SET UP TO ANALIZE NEXT CORE THREAP 

LPA* ACCUM GET OUR TOTAL 

SUB* FSENTO SUBTRACT THEIR TOTAL 

SAZ B0NES5 SHOULD BE EQUAL 

JMP* ERROR NOT EQUAL , ERROR EXIT 

B0NES5 LDA* FSLUPT GET CURRENT LU POINTER 

STA* FSPNT AND USE IT AS HEADER POINTER FOR NEXT ENTRY 

JMP* B0NES7 GO ANALIZE NEXT LUS ENTRY 

B0NES4 LPA* (FSLUPT) GET THREAP POINTER 

STA* THDPNT AND STORE IT 

RAO* FSLUPT INCREMENT LU POINTER 

LDA* (FSLUPT) GET THIS THREADS BLOCK SIZE 

STA* BLKSIZ AND SAVE IT 

RAO* FSLUPT INCREMENT LU POINTER 

RTJ* ANATHD GO ANALIZE THREAD 

JMP* B0NES3 GO SEE IF WE ARE DONE 

B0NES7 RAO* LUNO INCREMENT THE LU COUNT 

JMP* BONESO AND CONTINUE 



SPACE 


801 


SPACE 


802 


SPACE 


803 


SPACE 


804 


SPACE 


805 


SPACE 


806 


SPACE 


807 


SPACE 


808 


SPACE 


809 


SPACE 


810 


SPACE 


811 


SPACE 


812 


SPACE 


813 


SPACE 


814 


SPACE 


815 


SPACE 


816 


SPACE 


817 


SPACE 


818 


SPACE 


819 


SPACE 


820 


SPACE 


821 


SPACE 


822 


SPACE 


823 


SPACE 


824 


SPACE 


825 


SPACE 


826 


SPACE 


827 


SPACE 


828 


SPACE 


829 


SPACE 


830 


SPACE 


831 


SPACE 


832 


SPACE 


833 


SPACE 


834 


SPACE 


835 


SPACE 


836 


SPACE 


837 


SPACE 


838 
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PAGE 



30 



10 



15 



?0 



25 







* 








SPACE 


840 






* ROUTINE 


rO ANALIZE 


THREADS 


SPACE 


841 






* 








SPACE 


842 


P0332 


0000 


ANATHD 


NUM 





ENTRY POINT 


SPACE 


843 


P0333 


CRIB 


ANATHO 


LDA* 


TIIDPNT 


GET THREAD POINTER 


SPACE 


844 


P0334 


0111 




SAN 


ANATII1 


IF NONZERO GO ANALIZE IT 


SPACE 


845 


P0335 


1CFC 




JMP* 


(ANATHD) 


FINISHED WITH THIS THREAD, EXIT 


SPACE 


846 


P0336 


CB19 


ANATH1 


LDA* 


BLKSIZ 


GET BLOCK SIZE 


SPACE 


847 


P0337 


P815 




ADO* 


ACCUM 


INCREMENT ACCUMULATOR 


SPACE 


848 


P0338 


6P14 




STA* 


ACCOM 




SPACE 


849 


P0339 


PP. 14 




SUB* 


FSENTO 


SUBTRACT THEIR AVAILABLE SPACE FOR THIS LU 


SPACE 


8f>0 


P033A 


013? 




SAM 


ANATH2 


SKIP IF NOT BEYOND IT 


SPACE 


851 


P033B 


0101 




SAZ 


ANATH2 


SKIP IF NOT BEYOND IT 


SPACE 


852 


P033C 


1P4Q 




JMP* 


ERROR 


ALREADY TO MUCH, ERROR EXIT 


SPACE 


853 


P033D 


CPU 


ANATH2 


LOA* 


THDPNT 


GET SECTOR FOR READ 


SPACE 


854 


P033E 


5P2P 




RTJ* 


RDMASS 


READ UP NEXT ENTRY IN THREAD 


SPACE 


855 


P033F 


CPJ2 




LDA* 


MMBUFF 


GET THREAD 


SPACE 


85fi 


P0340 


9PPF 




SUB* 


THDPNT 


DOES IT POINT TO ITSELF 


SPACE 


857 


PP341 


0111 




SAN 


ANATH3 


NO 


SPACE 


858 


P034? 


\PA3 




JMP* 


ERROR 


YES, ERROR 


SPACE 


859 


P0343 


C80E 


ANATH3 


LDA* 


MMBUFF 




SPACE 


860 


P0344 


6BPA 




STA* 


THDPNT 


SAVE THE NEW THREAD 


SPACE 


861 


P0345 


18ED 




JMP* 


ANATHO 


GO INCREMENT ACCUMULATOR 


SPACE 


862 



o 



o 



r\ 



1700 ASSEMBLY OF SPACE 



CLASS - VER 3.0 



08/21/80 



10 



15 



20 



25 



30 



35 



PATA STORAGE 



P0346 


0000 




NHMRP 


NUM 





PP347 


7FFF 




MAXRD 


NUM 


$7FFF 


P0348 


7FFF 


X 


FSPNT 


ADC 


FSLIST 


PP349 


0000 




FSLUPT 


NUM 





P034A 


0000 




LUENTL 


NUM 





P034B 


0000 




BGSCPL 


NUM 





P034C 


0000 




ACCUH 


NUM 





P034D 


0000 




FSENTO NUM 





PP34E 


0000 




TUPPNT 


NUM 





P034F 


0000 




BLKSIZ 


NUM 





P0350 


0000 




LUNO 


NUM 





P0351 




0003 


MMBUFF 


BZS 


MMBUFF(3) 


P0354 


0000 




SECTOR 


ADC 





P0355 


7FFF 


X 




ADC 


BEGLU1 


P035fi 


7FFF 


X 




ADC 


BEGLU2 


P0357 


7FFF 


X 




ADC 


BEGLU3 


P0358 


7FFF 


X 




ADC 


BEGLU4 


P0359 


7FFF 


X 




ADC 


BEGLU5 


P035A 


7FFF 


X 




ADC 


BEGLU6 


P035B 


7FFF 


X 




ADC 


BEGLII7 


P035C 


7FFF 


X 




ADC 


BEGLU8 


P035D 


7FFF 


X 


LENGTH 


ADC 


NUMFSO 


P035F 


7FFF 


X 




ADC 


NUMFS1 


P035F 


7FFF 


X 




ADC 


NUMFS? 


P0360 


7FFF 


X 




ADC 


NUMFS3 


P0361 


7FFF 


X 




ADC 


NUMFS4 


P0362 


7FFF 


X 




ADC 


NUMFS5 


P0363 


7FFF 


X 




ADC 


NHMFS6 


P0364 


7FFF 


X 




ADC 


NUMFS 7 


P0365 


7FFF 


X 




ADC 


NUMFS8 



ACCUMULATOR OF NUMBER PASSES THROUGH RDMASS 

PASS CYCLE LIMIT 

FILE SPACE LIST POINTER 

CURRENT LU POINTER 

LENGTH OF THIS LUS ENTRY 

POINTER TO FILE SPACE POOL . 

ANALYSIS ACCUMULATOR 

WHAT THEY THINK TOTAL SHOULD BE 

CURRENT THREAD POINTER 

CURRENT BLOCK SIZE 

CURRENT UNIT NUMBER 

MASS MEMORY READ BUFFER 

TABLE OF SPACE POOL STARTING SECTORS 



TABLE OF SPACE POOL LENGTHS 



00.20.25. PAGE 


31 


SPACE 


864 


SPACE 


865 


SPACE 


866 


IH RDMASS SPACE 


867 


SPACE 


868 


SPACE 


869 


SPACE 


870 


SPACE 


871 


SPACE 


872 


SPACE 


873 


SPACE 


874 


SPACE 


87b 


SPACE 


876 


SPACE 


877 


SPACE 


878 


S SPACE 


880 


SPACE 


881 


SPACE 


882 


SPACE 


883 


SPACE 


884 


SPACE 


885 


SPACE 


886 


SPACE 


887 


SPACE 


888 


SPACE 


889 


SPACE 


890 


SPACE 


891 


SPACE 


892 


SPACE 


893 


SPACE 


894 


SPACE 


895 


SPACE 


896 


SPACE 


897 



17(10 ASSEMRLY OF SPACE 



CLASS - VER 3.0 OR/21/80 00.20.25. 



PAGE 



32 



* ROUTINE TO READ THREE WORDS FROM MASS MEMORY 



10 



15 



20 



25 



30 



35 



40 



P0366 


0000 


P0367 


6814 


P0368 


E8E7 


P0369 


CAEA 


P036A 


9811 


P036B 


0101 


P036C 


0125 


P036D 


CAE6 


PP36E 


8AEE 


P036F 


09FE 


P0370 


9P0B 


P0371 


0121 


P0372 


1P13 


P0373 


54F4 


P0374 


0801 


P0375 


0000 


PP376 


0000 


P0377 


0000 


P0378 


0003 


P037? 


0351 P 


P037A 


0000 


P037B 


0000 


P037C 


CPF9 


P0370 


0101 


P037E 


18FD 


P037F 


0175 


P0380 


D8C5 


P0381 


C8C4 


P0382 


98C4 


P03R3 


0121 


P0384 


1CE1 



RDMASS 


NUM 









STA* 


SEC 


SAVE THE CURRENT SECTOR 




LDQ* 


LUNO 






LDA* 


SECTOR ,Q 






SUB* 


SEC 


IS THE CURRENT SECTOR IN RANGE 




SAZ 


SAMOK 


YES, SAME SECTOR 




SAP 


RDMO 


NO 


SAMOK 


LDA* 


SECTOR, Q 


CALCULATE THE END SECTOR FOR THIS UNIT 




ADO* 


LENCTH.Q 






INA 


-1 






SUB* 


SEC 


IS THE CURRENT SECTOR IN RANGE 




SAP 


RDM1 


YES 


RDMO 


JMP* 


ERROR 


NO, ERROR 


RDM1 


RTJ- 


(AMOPI) 


READ THE THREAD 




ADC 


$0801 






ADC 







RDTMD 


ADC 







MMLU 


ADC 









ADC 


3 






ADC 


MMBUFF 






ADC 







SEC 


ADC 







RDWAIT 


LDA* 


RDTHD 






SAZ 


RDMIN 






JMP* 


RDWAIT 


WAIT FOR COMPLETION 


RDMIN 


SQM 


ERROR 


I/O ERROR 




RAO* 


NUMRD 






LDA* 


NUMRD 






SUB* 


MAXRD 


HAS THE READ CYCLE BEEN EXCEEDED 




SAP 


ERROR 


YES, ERROR 




JMP* 


(RDMASS) 





SPACE 


899 


SPACE 


900 


SPACE 


901 


SPACE 


902 


SPACE 


903 


SPACE 


904 


SPACE 


905 


SPACE 


906 


SPACE 


907 


SPACE 


908 


SPACE 


909 


SPACE 


910 


SPACE 


911 


SPACE 


912 


SPACE 


913 


SPACE 


914 


SPACE 


916 


SPACE 


917 


SPACE 


918 


SPACE 


919 


SPACE 


920 


SPACE 


921 


SPACE 


922 


SPACE 


923 


SPACE 


924 


SPACE 


926 


SPACE 


927 


SPACE 


928 


SPACE 


930 


SPACE 


931 


SPACE 


932 


SPACE 


933 


SPACE 


934 


SPACE 


935 



o 



o 



35 
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CLASS - VER 3.0 OB/21/80 00.20.25. 



PAGE 



33 



ROUTINE TO PROCESS FILE THREAP ERRORS 



SPACE 



937 



10 



15 



20 



25 



30 



P03P5 


0C02 




ERROR 


ENQ 


2 






P03P6 


5R53 






RTJ* 


MESSAG 


PRINT ERROR MESSAGE 




P03P7 


54F4 






RTJ- 


(AMONI) 


READ THE REPLY 




P03RR 


0P01 






ADC 


$0R01 






P03P« 


0000 






ADC 









P03RA 


0000 




ERTHD 


ADC 









P03PB 


1PFD 






AOC 


$18FD 






P03RC 


0003 






ADC 


3 






P03PP 


0351 P 






ADC 


MMBUFF 






P03PE 


CPFB 




ERWAIT 


LDA* 


ERTHD 






P03PF 


0101 






SAZ 


ER1 


INPUT IS COMPLETE 




P0390 


1PFD 






JMP* 


ERWAIT 






P0391 


CPBF 




ER1 


LDA* 


MMBUFF 






P0392 


9000 


5945 




SUB 


=AYE 


IS THE ANSWER YES 




P0394 


0109 






SAZ 


CLJFIL 


YES, CLEAR THE FILE 


TABLES 


P0395 


CPBB 






LDA* 


MMBUFF 






P0396 


9000 


4E4F 




SUB 


=ANO 


IS THE ANSWER NO 




P039R 


0101 






SAZ 


ER2 


YES, EXIT 




P0399 


1REB 






JMP* 


ERROR 


NEITHER, REPEAT THE 


REQUEST 


P039A 


0C03 




ER2 


ENQ 


3 






P039B 


5P3E 






RTJ* 


MESSAG 


PRINT LF/CR 




P039C 


1C00 


FF4R 




JMP 


(BONES) 


EXIT 





SPACE 


939 


SPACE 


940 


SPACE 


942 


SPACE 


943 


SPACE 


944 


SPACE 


945 


SPACE 


946 


SPACE 


947 


SPACE 


948 


SPACE 


950 


SPACE 


951 


SPACE 


952 


SPACE 


954 


SPACE 


955 


SPACE 


956 


SPACE 


957 


SPACE 


958 


SPACE 


959 


SPACE 


960 


SPACE 


961 


SPACE 


962 


SPACE 


963 



40 



P03QF E0E9 
P039F 0P44 
P03A0 6213 



CLJFIL 



LDQ- *E9 
CLR A 
STA- 19, Q 



CLEAR JOB TABLE INITIALIZATION FLAG 
SO JOB FILES WILL BE CLEARED 



SPACE 965 
SPACE 966 
SPACE 967 
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ROUTINE TO CLEAR ALL SYSTEM FILES 



SPACE 



969 



10 



IB 



20 



25 



30 



P03A] 


EOPO 


P03A3 


OPFC 


P03A4 


4P2B 


P03A5 


OAOO 


P03A6 


6622 


P03A7 


6201 


P03AR 


6202 


P03A9 


0P03 


P03AA 


40FF 


P03AB 


OCOO 


P03AC 


CAA7 


P03AD 


6101 


P03AE 


OAOO 


P03AF 


6102 


P03B0 


CAAC 


P03B1 


6103 


P03B2 


C4FF 


P03B3 


OF47 


P03B4 


80FF 


P03B5 


60FF 


P03B6 


C4FF 


P03B7 


0900 


P03B8 


0102 


P03B9 


0001 


PP3BA 


1PF1 



0348 X 



CLFILE LOQ 


=XFSLIST 




INQ 


-3 




STQ* 


CLADR 


SAVE THE BASE ADDRES 


ENA 







STA- 


(ZERO),Q 


CLEAR FIOSEC 


STA- 


1,0 


CLEAR FIBLSA 


STA- 


2,Q 


CLEAR FIBNIX 


INQ 


3 




STO- 


I 


SET UP THE BASE AUDRI 


ENQ 







CLF1L1 LOA* 


SECTOR, Q 




STA- 


1,1 


INITIALIZE THE FILE 1 


ENA 







STA- 


2,1 




LPA* 


LENGTH.Q 




STA- 


3,1 




LOA- 


(I) 




ARS 


7 


LENGTH OF THIS UNIT 


APP- 


I 




STA- 


I 


POINT TO NEXT UNIT 


LDA- 


(I) 




INA 





IS THE LIST COMPLETE 


SAZ 


CLFIL2 


YES 


INQ 


1 




JMP* 


CLF1L1 


CONTINUE 



SPACE 


971 


SPACE 


972 


SPACE 


973 


SPACE 


9/4 


SPACE 


975 


SPACE 


976 


SPACE 


977 


SPACE 


978 


SPACE 


979 


SPACE 


980 


SPACE 


982 


SPACE 


983 


SPACE 


984 


SPACE 


985 


SPACE 


986 


SPACE 


987 


SPACE 


988 


SPACE 


989 


SPACE 


990 


SPACE 


991 


SPACE 


992 


SPACE 


993 


SPACE 


994 


SPACE 


995 


SPACE 


996 
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35 



JO 



15 



20 



25 



30 



35 



P03BB 


0A60 


CLFIL2 


ENA 


96 


P03BC 


0C04 




ENQ 


4 


P03BD 


26E9 




MUI- 


($E9),0 


P03BE 


0FE1 




LLS 


1 


P03BF 


OFCF 




ALS 


15 


PO3C0 


PPOF 




ADO* 


CLADR 


P03C1 


0122 




SAP 


CLFIL3 


P03C? 


0001 




INO 


1 


P03C3 


A011 




AND- 


LPMSK+15 


P03C4 


4P0C 


CLFILa STQ* 


FLMSB 


P03C5 


6PPC 




STA* 


FLLSB 


PP3C6 


COFF 




LDA- 


I 


P03C7 


PP08 




SUB* 


CLADR 


P03C8 


6806 




STA* 


CLLEN 


PP3C9 


54F4 




RTJ- 


(AMONI) 


P03CA 


0401 




AOC 


$0401 


P03CR 


0000 




AOC 





P03CC 


0000 


CLTHD 


ADC 





P03CD 


08C2 




ADC 


$08C2 


P03CE 


0000 


CLLEN 


ADC 





P03CF 


0000 


CLADR 


ADC 





P03P0 


0000 


FLMSB 


ADC 





P03D1 


0000 


FLLSB 


ADC 





P03D2 


C8F9 


CLFIL4 


LDA* 


CLTHD 


P0303 


0101 




SAZ 


CLFIL5 


P03P4 


18F0 




JMP* 


CLFIL4 


P03D5 


0C03 


CLFIL5 ENQ 


3 


P03D6 


5803 




RTJ* 


ME S SAG 


P03D7 


icon ffoh 


JMP 


(BONES) 



CALCULATE THE WORD ADDRESS OF 
THE CORE IMAGE 



CALCULATE THE ADDRESS OF THE FILE TABL 
IN THE CORE IMAGE 



SAVE FOR THE TRANSFER 



LENGTH OF THE TRANSFER 



WRITE CLEARED TABLE TO CORE IMAGE 



THE WRITE IS COMPLETE 



PRINT LF/CR 
RETURN 



SPACE 


998 


SPACE 


999 


SPACE 


1000 


SPACE 


1001 


SPACE 


1002 


SPACE 


1003 


SPACE 


1004 


SPACE 


1005 


SPACE 


1006 


SPACE 


1007 


SPACE 


1009 


SPACE 


1010 


SPACE 


1011 


SPACE 


1012 


SPACE 


1014 


SPACE 


1015 


SPACE 


1016 


SPACE 


1017 


SPACE 


1018 


SPACE 


1019 


SPACE 


1020 


SPACE 


1021 


SPACE 


1022 


SPACE 


1024 


SPACE 


1025 


SPACE 


1026 


SPACE 


1028 


SPACE 


1029 


SPACE 


1030 
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36 



MESSAGE SUBROUTINE 



SPACE 



1032 



10 



15 



20 



25 



30 



P03PO 


OBOO 


P03PA 


CAOF 


P03PB 


6809 


P030C 


CA11 


P03DD 


6806 


P03DE 


54F4 


P03DF 


0401 


P03E0 


0000 


P03E1 


0000 


P03E2 


18FC 


P03E3 


0000 


P03E4 


0000 


P03E5 


C8FB 


P03E6 


0101 


P03E7 


18FD 


P03E8 


1CF0 


PP3E9 


03F1 P 


P03EA 


03FA P 


PP3EB 


03 FC P 


P03EC 


04 OE P 


P03EP 


0009 


P03EE 


0002 


P03EF 


0012 


P03F0 


0001 



MESSAO MOP 

LOA* MESSAD.Q 
STA* ME S ADD 
LDA* MESSLN.Q 
STA* MESLEN 

RTJ- (AMONI) 

ADC $0401 

ADC 

MESTHD ADC 

ADC $18FC 

MESLEN ADC 

ME S ADD ADC 

MESCHK LDA* MESTHD 
SAZ MESDUN 
JMP* MESCHK 

MESDUN JMP* (MESSAO) 

MESSAP ADC MESS01 

ADC MESSG2 

ADC MESSG3 

ADC MESSG4 

MESSLN ADC LMESS1 

ADC LMESS2 

ADC LMESS3 

ADC LMESS4 



SET UP THE MESSAGE ADDRESS 
SET UP THE MESSAGE LENGTH 
PRINT THE MESSAGE 



OUTPUT COMPLETE 

RETURN 

MESSAGE ADDRESS 

MESSAGE LENGTH 



SPACE 


1034 


SPACE 


1035 


SPACE 


1036 


SPACE 


1037 


SPACE 


1038 


SPACE 


1040 


SPACE 


1041 


SPACE 


1042 


SPACE 


1043 


SPACE 


1044 


SPACE 


1045 


SPACE 


1046 


SPACE 


1048 


SPACE 


1049 


SPACE 


1050 


SPACE 


1051 


SPACE 


1053 


SPACE 


1054 


SPACE 


1055 


SPACE 


1056 


SPACE 


1057 


SPACE 


1058 


SPACE 


1059 


SPACE 


1060 



o 
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CLASS - VER 3.0 08/21/80 00.20.25. PAGE 37 

SPACE 1062 



10 



IB 



20 



25 



30 



35 



40 



P03F1 


4348 


P03F2 


4543 


P03F3 


4B49 


P03F4 


4E47 


P03F5 


2046 


P03F6 


494C 


P03F7 


4553 


P03F8 


2020 


P03F9 


2020 


P03FA 


4F4B 


P03FB 


OAOA 


P03FC 


4552 


P03FP 


524F 


P03FE 


5253 


P03FF 


OPOA 


P0400 


434C 


P0401 


4541 


P0402 


5220 


P0403 


414C 


P0404 


4C20 


P0405 


4649 


P0406 


4C45 


P0407 


533C 


P0408 


2028 


P0409 


5945 


P040A 


532F 


P040B 


4E4F 


P040C 


2920 


P040D 


2020 



MESSG1 ALF $, CHECKING FILES - $ 



SPACE 1064 



0009 



0002 



EQU LMESS1(*-MESSG1) 

MESSG2 ALF $,0K$ 

MUM SOAOA 

EQU LMESS2(*-MESS02) 

MESSG3 ALF $,ERRORS$ 



NUM $ODOA 

ALF $, CLEAR ALL FILES< (YES/NO) $ 



SPACE 


1065 


SPACE 


1066 


SPACE 


1067 


SPACE 


1068 


SPACE 


1069 


SPACE 


1070 


SPACE 


1071 



P040E 



OAOA 



0012 



0001 



EQU LMESS3(*-MESSG3) 
MESSG4 NUM $OAOA 

EQU LMESS4(*-MESSG4) 



SPACE 1072 
SPACE 1073 
SPACE 1074 
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PAGE 



38 



10 



15 



20 



25 



30 



35 



40 



pnqOF 


0000 


P041P 


0844 


poan 


681E 


P0412 


681E 


P011 3 


681E 


P0414 


E0E9 


P0115 


C208 


P0416 


683D 


P0117 


5830 


P0418 


4800 


P0-U9 


C622 


P011A 


C206 


P041B 


0107 


P041C 


0126 


P041D 


A011 


P041E 


6206 


P041F 


C207 


P0420 


A011 


P0421 


6207 


P0422 


P80D 


P0423 


C80D 


P0424 


09F6 


P0425 


0116 


P0426 


C809 


P0427 


0104 


P0428 


581F 


pn/|2« 


4C00 


P042A 


0844 


PP42R 


6804 


P042C 


5807 


P042P 


1CE1 


P042E 


1PEA 


P042F 


0000 


P0430 


0000 


P0431 


0000 



CLSFIL 



FL0601 



FL0610 



FL0614 



V20 
V22 
V27 



NUM 

CLR 

STA* 

STA* 

STA* 

LDQ- 

LDA- 

STA* 

RTJ* 

NUM 

LDA- 

LDA- 

SAZ 

SAP 

AND- 

STA- 

LDA- 

ANP- 

STA- 

RAO* 

LOA* 

INA 

SAN 

LDA* 

SAZ 

RTJ* 

miM 

CLR 

STA* 

RTJ* 

JMP* 

JMP* 

NUM 
NUM 
NUM 





A 

V20 

V22 

V27 

$E9 

8,Q 

FLS05D 

FLS05 

$4800 

(ZERO).Q 

6,Q 

FL0610 

FL0610 

LPMSK+15 

6,Q 

7,Q 

LPMSK+15 

7,Q ' 

V20 

V22 

-9 

FL0614 

V20 

FL0614 

FLS05 

$4C00 

A 

V20 

FLS06 

(CLSFIL) 

FL0601 







SUBROUTINE TO CLOSE ALL JOB FILES 
INITIALIZE 



FREAD JOB FILE DIRECTORY 



SKIP IF NOT DEFINED 
SKIP IF CLOSED 



P0432 



1CDC 



FILERR JMP* (CLSFIL) 



CLOSE FILE 



SET TO READ MODE 

SET FILE CLOSED INDICATOR 



SKIP IF NO FILES WERE CLOSED 
REWRITE THE FILE BLOCK 
FWRITE 

CLEAR FILE CLOSED INDICATOR 
GET NEXT FILE ENTRY IF ANY 
FINISHED, RETURN 
PROCESS THE NEXT ENTRY 

FILE CLOSED INDICATOR 

INDEX TO ENTRY IN FILE BLOCK 

INDEX TO NUMBER OF FILES 

ERROR, RETURN 



SPACE 


1077 


SPACE 


1078 


SPACE 


1079 


SPACE 


1080 


SPACE 


1081 


SPACE 


1082 


SPACE 


1083 


SPACE 


1084 


SPACE 


1085 


SPACE 


1086 


SPACE 


1087 


SPACE 


1088 


SPACE 


1089 


SPACE 


1090 


SPACE 


1091 


SPACE 


1092 


SPACE 


1093 


SPACE 


1094 


SPACE 


1095 


SPACE 


1096 


SPACE 


1097 


SPACE 


1098 


SPACE 


1099 


SPACE 


1100 


SPACE 


1101 


SPACE 


1102 


SPACE 


1103 


SPACE 


1104 


SPACE 


1105 


SPACE 


1106 


SPACE 


1107 


SPACE 


1108 


SPACE 


1109 


SPACE 


1110 


SPACE 


1111 


SPACE 


1112 


SPACE 


1113 



45 



50 



55 



P0433 


0000 


FLS06 NUM 


P0434 


PPFB 


RAO* V22 


P0435 


P8FB 


RAO* V27 


P0436 


COOO 0259 X 


LDA =XJBFLV4 


P0438 


98F8 


SUB* V27 


PP439 


0111 


SAN FLS06A 


P043A 


1PPC 


JMP* FLS069 


P043B 


C8F4 


FLS06A LPA* V22 


P043C 


P0F5 


INA -10 


P043P 


0102 


SAZ FLSOfil 


P043E 


OPOQ 


INO 9 


P043F 


1806 


"JMP* FLS067 



SECTION TO FIND NEXT FILE ENTRY 
IN THE FILE BLOCK 



NOT DONE, SKIP 

JUMP IF ALL CHECKED 

CHECK IF ALL OF THIS BLOCK DONE 

SKIP IF YES 



SPACE 


1115 


SPACE 


1116 


SPACE 


1117 


SPACE- 


1118 


SPACE 


1119 


SPACE 


1120 


SPACE 


1121 


SPACE 


1122 


SPACE 


1123 


SPACE 


1124 


SPACE 


1125 


SPACE 


1126 



o 



o 



o 
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P0440 


D813 


FLS061 RAO* FLS05D 


UPDATE LSB OF SECTOR 


P0441 


5806 


RTJ* FLS05 


READ THE NEXT SECTOR 


P0442 


4800 


NUM $4800 


FREAD 


P0443 


0844 


CLR A 




P0444 


68EB 


STA* V22 


FIRST ENTRY IN FILE 1 


P0445 


08ED 


FLS067 RAO* FLS06 




P0446 


1CEC 


FLS069 JMP* (FLS06) 





SPACE 


1127 


SPACE 


1128 


SPACE 


1129 


SPACE 


1130 


SPACE 


1131 


SPACE 


1132 


SPACE 


1133 



10 



15 



20 



25 



30 



35 



PPA47 


OOPO 


P0448 


CCFE 


PP449 


6P03 


P044A 


D8FC 


P044B 


54F4 


P044C 


0000 


Pn44p 


OPOP 


P044E 


OOPO 


P044F 


P8C2 


P0450 


0060 


PP451 


04 5C P 


P0452 


0000 


P0453 


0000 


P0454 


C8F9 


P0455 


0101 


P0456 


18FD 


P0457 


C8F7 


P0458 


0121 


P0459 


18D8 


P045A 


E8F6 


P045B 


1CEB 


P045C 





FLS05 


NUM 





SECTION TO READ/WRITE A 




LPA* 


(FLSP5) 






STA* 


FLS051 


SAVE THE REQUEST CODE 




RAO* 


FLS05 


UPDATE RETURN 




RTJ- 


(AMONI) 




FLS051 


NUM 





+0 REQUEST CODE 




ADC 





+1 CA 


FLS05A 


ADC 





+2 T 


FLS05B 


NUM 


$8C2 


+3 LIBRARY UNIT 




NUM 


96 


+4 NUMBER OF WORDS 


FLS05C 


ADC 


BUF2A 


+5 START ADDRESS 




NUM 





+6 MSB 


FLS05D 


NUM 





+7 LSB 


FLS052 


LDA* 


FLS05A 


CHECK REQUEST COMPLETED 




SAZ 


FLS053 


COMPLETED, SKIP 


* 


JMP* 


FLS052 




FLS053 


LDA* 


FLS05B 






SAP 


FLS059 


NO ERROR. SKIP 




JMP* 


FILERR 


I/O ERROR 



0060 



FLS059 LDQ* FLS05C 
JMP* (FLS05) 
BUF2A BZS BUF2A(96) 



SPACE 


1135 


SPACE 


1136 


SPACE 


1137 


SPACE 


1138 


SPACE 


1139 


SPACE 


1140 


SPACE 


1141 


SPACE 


1142 


SPACE 


1143 


SPACE 


1144 


SPACE 


1145 


SPACE 


1146 


SPACE 


1147 


SPACE 


1148 


SPACE 


1149 


SPACE 


1150 


SPACE 


1151 


SPACE 


1152 


SPACE 


1153 


SPACE 


1154 


SPACE 


1155 


SPACE 


1156 


SPACE 


1157 


SPACE 


1158 



IP 



15 



20 



25 
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PAGE 
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• 




ALLOCATION 


LENGTHS 






SPACE 


1160 








* 
















SPACE 


1161 








* 


AREAS 1, 2, 


AND 


3 


ARE SETUP BY *S CONTROL CARDS IN 


**MS0S 


4.1** 


SPACE 


1162 








* 


SYSTEM INSTALLATION FILE. AREAS 4-15 ARE SETUP BY 


**MSOS 


4.1** 


SPACE 


1163 








* 


EQUATES IN 


SYSDAT 




**MS0S 


4.1** 


SPACE 


1164. 


P04BC 


7FFF 


X 


ALCLGH AOC 


Nl 






ALLOCATION LENGTH FOR AREA 1 






SPACE 


1166 


P04RD 


7FFF 


X 




ADC 


N2 






ALLOCATION LENGTH FOR AREA 2 






SPACE 


1167 


P04BE 


OPFA 


X 




ADC 


PSIZV4 






ALLOCATION LENGTH FOR AREA 3 


**MSOS 


4.1** 


SPACE 


1168 


P04BF 


7FFF 


X 




ADC 


N4 






ALLOCATION LENGTH FOR AREA 4 






SPACE 


1169 


P04C0 


7FFF 


X 




ADC 


N5 






ALLOCATION LENGTH FOR AREA 5 






SPACE 


1170 


P04C1 


7FFF 


X 




ADC 


N6 






ALLOCATION LENGTH FOR AREA 6 






SPACE 


1171 


P04C2 


7FFF 


X 




ADC 


N7 






ALLOCATION LENGTH FOR AREA 7 






SPACE 


1172 


P04C3 


7FFF 


X 




ADC 


N8 






ALLOCATION LENGTH FOR AREA 8 






SPACE 


1173 


P04C4 


7FFF 


X 




ADC 


N9 






ALLOCATION LENGTH FOR AREA 9 






SPACE 


1174 


P04C5 


7FFF 


X 




ADC 


N10 






ALLOCATION LENGTH FOR AREA 10 






SPACE 


1175 


P04C6 


7FFF 


X 




ADC 


Nil 






ALLOCATION LENGTH FOR AREA 11 






SPACE 


1176 


P04C7 


7FFF 


X 




ADC 


N12 






ALLOCATION LENGTH FOR AREA 12 






SPACE 


1177 


P04C8 


7FFF 


X 




ADC 


N13 






ALLOCATION LENGTH FOR AREA 13 






SPACE 


1178 


P04C9 


7FFF 


X 




ADC 


N14 






ALLOCATION LENGTH FOR AREA 14 






SPACE 


1179 


P04CA 


7FFF 


X 




ADC 


N15 






ALLOCATION LENGTH FOR AREA 15 






SPACE 


1180 



30 



P04CB 



PfUlCP 



1800 


FB4F 


JMP RESTRT 


MUST ALWAYS BE 2 WORD INSTRUCTION 


**MS0S4.0* SPACE 


1182 






* AUTOLOAD 


PROGRAM MOVED TO HERE 


SPACE 


1183 






* 




* SPACE 


1184 


JRPP 


FB4D 


STMSV4 JMP RESTRT 


FIRST WORD OF AUTOLOAD PROGRAM 


**MS0S4.0* SPACE 


1185 



35 



4P 



PP4CF 
P04P1 



0002 



BSS (2) 
END 



RESERVE TWO WORD FOR THE ALLOCATABLE 
CORE THREAD 



SPACE 1187 
SPACE 1188 
SPACE 1189 



67774B STORAGE USED 
6400 ASSEMBLY 



1347 STATEMENTS 
7.335 SECONDS 



353 SYMBOLS 
987 REFERENCES 



o 



o 



o 



o 



n 
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ACCP 


0071 




10/26 Q 


12/18 . 














ACCOM 


034C 




28/24 


28/41 


29/09 


29/10 


29/25 


30/12 


30/13 


31/13 L 


AORFMS 


02EF 


♦EXTERNAL* 


3/26 X 


28/15 














ALCLGH 


04BC 




2/21 E 


6/24 


6/26 


6/31 


8/14 


40/11 L 






AMONI 


00F4 


ABSOLUTE 


4/15 Q 


17/13 


17/31 


20/26 


23/27 


32/21 


35/20 


39/20 








9/04 


17/22 


18/17 


22/19 


24/18 


33/10 


36/13 




ANATHD 


0332 




29/19 


29/38 


30/07 L 


30/10 










ANATIIO 


0333 




30/08 L 


30/26 














ANATH1 


0336 




30/09 


30/11 L 














ANATH2 


0330 




30/15 


30/16 


30/18 L 












ANATH3 


0343 




30/22 


30/24 L 














AREAC 


001A 




2/20 E 


5/40 L 


6/28 


8/26 


8/27 








ATC 


02A9 




24/35 


24/46 


26/20 L 












AllTFA 


0101 


♦EXTERNAL* 


3/12 X 


14/27 














AUTFB 


OOFE 


♦EXTERNAL* 


3/13 X 


14/25 














AMTFP 


0104 


♦EXTERNAL* 


3/11 X 


14/29 














A101 


01DF 




21/08 L 


21/15 


22/05 












A101M 


01PE 




20/35 


21/07 L 


22/30 












A102 


01 E2 




21/10 L 


21/21 


21/23 


22/07 










BEGLlll 


03F5 


♦EXTERNAL* 


3/27 X 


31/21 














BFOLM? 


0356 


♦EXTERNAL* 


3/2P X 


31/22 














BEGLU3 


0357 


*EXTERNAL* 


3/29 X 


31/23 














BEGLII4 


0358 


♦EXTERNAL* 


3/30 X 


31/24 














BEOLIJF 


0359 


♦EXTERNAL^ 


3/31 X 


31/25 














BEGLU6 


035A 


♦EXTERNAL* 


3/32 X 


31/26 














BEGLU7 


035B 


*EXTERNAL* 


3/33 X 


31/27 














BEGLII8 


035C 


♦EXTERNAL* 


3/34 X 


31/28 














BGSCPL 


034B 




28/31 


29/04 


29/12 


29/16 


31/12 L 








BLKS1Z 


034F 




29/08 


29/36 


30/11 


31/16 L 










BOMES 


02E6 




24/33 


28/07 L 


28/11 


28/22 


33/31 


35/36 






BONESO 


02F1 




28/17 L 


29/41 














B0NES1 


02F8 




28/19 


28/23 L 














B0NES2 


030C 




28/36 


29/04 L 


29/20 












B0NES3 


031D 




29/05 


29/21 L 


29/39 












B0NES4 


0328 




29/24 


29/32 L 














B0NES5 


0325 




29/27 


29/29 L 














B0NES6 


0317 




29/13 


29/15 L 














B0NES7 


0330 




28/42 


29/31 


29/40 L 












BUF2A 


045C 




39/26 


39/39 B 














CALTHO 


004E 


♦EXTERNAL^ 


2/37 X 


8/2P 














CCP 


0071 


♦EXTERNAL^ 


2/29 X 


10/25 














CHKENP 


00-2A 




6/32 


6/34 L 














CHKTMR 


01 5F 




15/34 


15/48 


17/08 L 












CKTHRP 


OOOB 


♦EXTERNAL* 


2/32 X 


5/22 














CLAPR 


03CF 




34/09 


35/09 


35/17 . 


35/26 L 










CLFILE 


03A1 




34/07 L 
















CLFIL1 


03AC 




34/18 L 


34/32 














CLFIL? 


03BB 




34/30 


35/04 L 














CLF1L3 


G3C4 




35/10 


35/13 L 














CLFIL4 


030? 




35/30 L 


35/32 














CLFIL5 


03P5 




35/31 


35/34 L 














CLJFIL 


039E 




33/24 


33/38 L 














CLLEN 


03CE 




35/18 


35/25 L 














CLRPB 


OOAO 




12/10 


12/13 L 














CLRPBT 


00A9 




12/20 


12/30 L 














CLRPB1 


00A5 




12/15 


12/17 Q 














CLSFIL 


040F 




24/31 


30/04 L 


38/34 


38/41 











1700 ASSEMBLY OF 


SPACE 
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CLTHD 


03CC 




35/23 L 


35/30 






CORZ 


0011 




5/25 


5/27 L 






CORJ 


0006 




5/14 


5/19 L 






DATE 


02C2 




20/15 


20/16 


20/18 


20/23 


PAY 


02E4 




20/17 


27/56 L 






DM I con 


01 58 


♦EXTERNAL* 


2/41 X 


16/56 






DTIMER 


0165 


♦EXTERNAL* 


2/38 X 


17/15 






P15721 


0146 


♦EXTERNAL* 


2/47 X 


16/32 






EFLOCK 


02A0 


*EXTERNAL* 


3/18 X 


8/30 


26/07 




EMPSRT 


015D 


*EXTERNAL* 


2/43 X 


16/59 






ENP0V4 


0038 


♦EXTERNAL* 


2/31 X 


8/09 






EQ3644 


014B 


♦EXTERNAL* 


2/53 X 


16/39 






ERROR 


0385 




29/14 


30/17 


32/19 


32/39 








29/28 


30/23 


32/35 


33/07 L 


ERTHD 


038A 




33/13 L 


33/18 






ERWAIT 


038E 




33/18 L 


33/20 






ER1 


0391 




33/19 


33/22 L 






ER2 


039A 




33/27 


33/29 L 






El 0336 


014F 


♦EXTERNAL* 


2/54 X 


16/46 






E 11572 


0120 


♦EXTERNAL^ 


2/52 X 


15/41 






E1572F 


0122 


♦EXTERNAL* 


2/51 X 


15/42 






EH5721 


01 3B 


♦EXTERNAL* 


2/48 X 


16/13 


16/24 




E 11573 


012B 


♦EXTERNAL* 


2/49 X 


16/06 






El '3761 


01 OF 


♦EXTERNAL* 


2/45 X 


14/37 


14/40 




E17P11 


0190 


♦EXTERNAL^ 


2/59 X 


19/09 






FAULT 


01F2 




21/16 


21/23 L 


21/28 




FILCIIK 


02 5D 




24/30 


24/33 L 






FILCLS 


0258 




24/27 


24/29 L 






FIl.ERR 


043? 




38/41 L 


39/36 






FIX4 


0036 




8/06 


8/08 L 






FIX4A 


003C 




8/11 


8/13 L 






FIX4X 


0042 




8/13 


8/18 L 






FIX4Y 


0044 




8/07 


8/20 L 






FLAP IT 


02A4 




21/26 


22/14 


26/1? L 




FLLSB 


03D1 




35/15 


35/28 L 






FI.MSR 


03P0 




35/13 


35/27 L 






FLS05 


0447 




38/12 


38/29 


39/04 


39/16 L 


FLS05A 


044E 




39/23 L 


39/30 






FLS05B 


044F 




39/24 L 


39/34 






FLS05C 


0451 




39/26 L 


39/37 






FLSOFD 


0453 




38/11 


38/60 


39/28 L 




FLS051 


044C 




39/18 


39/21 L 






FLS05? 


0454 




39/30 L 


39/32 






FLS053 


0457 




39/31 


39/34 L 






FLS059 


04 5A 




39/35 


39/37 L 






FLS06 


0433 




38/33 


38/48 L 


39/08 


39/09 


FLS06A 


043B 




38/53 


38/55 L 






FLS061 


0440 




38/57 


38/60 L 






FLS067 


0445 




38/59 


39/08 L 






FLS069 


0446 




38/54 


39/09 L 






FL0601 


0419 




38/14 L 


38/35 






FL0610 


0423 




38/16 


38/17 


38/24 I. 




FL0614 


04 2C 




38/26 


38/28 


38/33 L 




FOUR 


0025 


ABSOLUTE 


4/16 Q 


14/19 


14/23 




FSENTO 


034D 




28/33 


29/26 


30/14 


31/14 L 


FSLIST 


03A? 


♦EXTERNAL^ 


3/25 X 


31/09 


34/07 




FSLUPT 


0349 




28/35 


29/21 


29/29 


29/32 
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20/24 



27/17 L 



33/28 



39/19 



39/38 



29/34 



29/35 



29/37 



31/10 L 



o 



o 



1700 ASSEMBLY OF 


SPACE 








CLASS - VI 


ER 3.0 


OR/21/80 00.20.2 


COMPLETE 


REFERENCE MAP. 














FSPNT 


0348 




28/08 


28/17 


28/29 


28/37 


28/39 


29/22 29/30 


F10336 


0151 


♦EXTERNAL^ 


2/56 X 


16/47 










F17811 


01A6 


♦EXTERNAL* 


2/60 X 


19/17 










GOPP 


01FA 




21/27 


21/29 L 










HANG IT 


01F9 




21/25 


21/28 L 










HFPREJ 


01A9 




19/16 


19/18 


19/23 L 








HFPRJL 


0007 


ABSOLUTE 


19/30 


19/43 Q 










HFPRJM 


01B2 




19/30 


19/36 L 


19/43 








HICORE 


OOF 6 


ABSOLUTE 


3/59 Q 


12/36 


12/46 








H15721 


0142 


♦EXTERNAL* 


2/46 X 


16/16 


16/18 


16/27 


16/29 




H7FF 


OOEA 




11/06 


11/06 


11/06 


13/40 L 






I 


OOFF 


-SYSTEM- 


6/30 


10/47 


13/26 


34/24 


34/27 


35/16 








6/34 


11/08 


34/15 


34/26 


34/28 




IDL 


023A 




23/25 


23/32 L 










IPLE 


0019 


*EXTERNAL* 


2/39 X 


5/36 










IDTH 


0238 




23/30 L 


23/35 










IPWAIT 


02 3C 




23/35 L 


23/37 










IP1 


0221 




23/09 


23/11 L 










ID? 


022B 




23/18 L 


23/23 










IP3 


0233 




23/20 


23/24 L 










IP4 


023F 




23/22 


23/36 


23/39 L 








INIT 


0070 




8/31 


10/25 L 










IMPTV4 


0109 


♦EXTERNAL* 


3/10 X 


14/32 










HIP 


0107 


♦EXTERNAL* 


3/09 X 


14/31 










I] 


02A5 




24/07 


26/14 L 










12 


02A6 




26/14 


26/15 L 










13 


02A7 




24/08 


26/15 


26/16 L 








,)RFLV4 


0437 


♦EXTERNAL* 


3/17 X 


24/29 


38/51 






. 


JOBENT 


OOEB 


♦EXTERNAL* 


3/04 X 


14/07 










Kfi5T10 


0010 


♦EXTERNAL* 


3/08 X 


5/26 










LBPROT 


OOAE 


♦EXTERNAL* 


2/26 X 


12/34 










LENP 


0031 


♦EXTERNAL* 


2/36 X 


7/05 










LENGTH 


0350 




31/29 L 


32/15 


34/22 








LIBERT 


OOEC 


♦EXTERNAL* 


3/05 X 


14/08 










LMESS1 


0009 


ABSOLUTE 


36/30 


37/16 Q 










LMESS2 


0002 


ABSOLUTE 


36/31 


37/19 Q 










LMESS3 


0012 


ABSOLUTE 


36/32 


37/38 Q 










LMESS4 


0001 


ABSOLUTE 


36/33 


37/40 Q 










LOBRAP 


00B7 




12/42 


12/43 


12/45 








LOBRTB 


00B7 


♦EXTERNAL* 


2/28 X 


12/41 










LOCORE 


OOF 7 


ABSOLUTE 


3/58 Q 


12/33 


12/39 








LOCO 


00E9 




10/57 


13/39 L 










L0G1A 


0182 


*EXTERNAL* 


2/58 X 


18/08 










LPMSK 


0002 


ABSOLUTE 


4/14 Q 


11/19 


14/38 


18/11 


23/13 


25/07 28/09 








10/27 


11/20 


17/09 


20/08 


24/38 


25/36 35/12 








11/09 


12/19 


17/18 


23/08 


24/43 


25/45 38/18 


LRSET 


028F 




25/38 


25/41 Q 










LSIZV4 


OOF 5 


♦EXTERNAL* 


3/15 X 


14/18 










LSUMLV 


0014 


ABSOLUTE 


20/31 


27/24 










LTX 


01 PB 




20/34 L 


20/36 










HICORE 


0001 


ABSOLUTE 


4/08 


5/27 










LUENTL 


034A 




28/27 


28/38 


29/23 


31/11 L 






LUNO 


0350 




29/40 


31/17 L 


32/09 








LVLSTR 


002P 


♦EXTERNAL* 


2/35 X 


6/36 










MAXRO 


0347 




31/OP L 


32/38 










MESAPP 


03E4 




36/09 


36/19 L 










MESCHK 


03E5 




36/21 L 


36/23 
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38/21 
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MESDUN 


03E8 




36/22 


36/24 L 




MESLEN 


03E3 




36/11 


36/18 L 




MESSAD 


03E9 




36/08 


36/26 L 




MESSAG 


03P9 




28/14 


28/21 


33/08 33/30 35/35 


MESSG1 


03F1 




36/26 


37/07 L 


37/16 


MESSG2 


03FA 




36/27 


37/17 L 


37/19 


MESSG3 


03FC 




36/28 


37/20 L 


37/38 


MESSG4 


04 OE 




36/29 


37/39 L 


37/40 


MESSLN 


03ED 




36/10 


36/30 L 




MESTHD 


03E1 




36/16 L 


36/21 




MIBX 


029E 


♦EXTERNAL* 


3/19 X 


8/29 


26/06 


MHBUFF 


0351 




29/07 


29/15 


30/20 31/18 B 33/16 








29/11 


29/17 


30/24 32/27 33/22 


MMLU 


0377 




28/28 


32/25 L 




MMOPE 


0254 




24/16 


24/24 L 




MODE 


0242 




23/10 


24/07 L 




MOHETH 


0251 




24/21 L 


24/26 




MODWAT 


0255 




24/26 L 


24/28 




MONTH 


02E3 




20/07 


20/11 


27/55 L 


MPFLAG 


00A1 


♦EXTERNAL* 


2/40 X 


12/13 




MP17CK 


0157 




15/37 


16/56 L 




M32K 


0246 




24/09 


24/11 L 




M65K 


0249 




24/10 


24/13 L 




N0G30A 


02AC 


♦EXTERNAL* 


3/46 X 


26/23 




NOTMP 


00C6 




12/16 


12/60 L 




NOTTS 


00C2 




12/21 


12/53 Q 




NTEMSG 


0060 




9/10 


9/19 L 


9/35 


NTEMSL 


0010 


ABSOLUTE 


9/09 


9/35 Q 




NTENUF 


0054 




8/12 


9/04 L 




NTETHO 


0057 




9/07 L 


9/13 




NTEWAT 


005B 




9/13 L 


9/15 




NUMFSO 


035D 


♦EXTERNAL* 


3/35 X 


31/29 




NIIMFS1 


035E 


♦EXTERNAL* 


3/36 X 


31/30 




NIIMFS2 


035F 


♦EXTERNAL* 


3/37 X 


31/31 




NIIMFS3 


0360 


♦EXTERNAL* 


3/38 X 


31/32 




NIIMFS4 


0361 


♦EXTERNAL^ 


3/39 X 


31/33 




NUMFS5 


0362 


♦EXTERNAL* 


3/40 X 


31/34 




NIIMFSfi 


0363 


♦EXTERNAL* 


3/41 X 


31/35 




NIIMFS7 


0364 


♦EXTERNAL^ 


3/42 X 


31/36 




NIIMFSP 


0365 


♦EXTERNAL^ 


3/43 X 


31/37 




NHMRP 


0346 




31/07 L 


32/36 


32/37 


NXTLOC 


008B 




11/11 


11/16 


11/16 11/16 11/16 


NXTPGE 


00P6 




10/58 


11/22 


11/22 11/22 11/22 


Nl 


04BC 


♦EXTERNAL* 


3/14 X 


40/11 




N10 


04C5 


♦EXTERNAL* 


3/14 X 


40/20 




Nil 


04C6 


♦EXTERNAL^ 


3/14 X 


40/21 




N12 


04C7 


♦EXTERNAL^ 


3/14 X 


40/22 




N13 


04C8 


♦EXTERNAL* 


3/14 X 


40/23 




N14 


04C9 


♦EXTERNAL^ 


3/14 X 


40/24 




N15 


04CA 


♦EXTERNAL* 


3/14 X 


40/25 




N2 


04BD 


♦EXTERNAL* 


3/14 X 


40/12 




N4 


04BF 


♦EXTERNAL^ 


3/14 X 


40/14 




N5 


04C0 


♦EXTERNAL^ 


3/14 X 


40/15 




N6 


04C1 


♦EXTERNAL* 


3/14 X 


40/16 




N7 


04C2 


♦EXTERNAL^ 


3/14 X 


40/17 




np 


04C3 


♦EXTERNAL* 


3/14 X 


40/18 




N9 


04C4 


♦EXTERNAL^ 


3/14 X 


40/19 





36/07 L 36/24 



33/25 
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ONEBIT 


0023 


ABSOLUTE 


4/12 


16/08 . 


18/12 




OUT III 


021C 




22/13 


22/15 


23/07 L 




OUTPP 


021B 




22/28 


22/30 L 






OUTPUT 


02AA 


♦EXTERNAL^ 


3/44 X 


26/21 






0UTPV4 


02B3 


♦EXTERNAL^ 


3/53 X 


26/30 






010336 


0155 


♦EXTERNAL* 


2/55 X 


16/50 






01572 


0126 


♦FXTERNAL* 


2/50 X 


15/45 






015721 


0148 


♦EXTERNAL* 


16/33 


16/34 X 






PCORE 


0268 


♦EXTERNAL* 


3/54 X 


24/42 






PFCNT 


029A 




25/25 


25/32 


25/49 


25/50 


PP 


02C9 




22/25 


27/26 L 






PPFLAG 


02A3 




21/24 


22/11 


22/17 


26/11 L 


PPTH 


0214 




22/22 L 


22/27 






PPWAIT 


0218 




22/27 L 


22/29 






PROTEC 


OOED 


♦EXTERNAL* 


3/06 X 


14/09 






PSIZV4 


04BE 


*EXTERNAL* 


3/16 X 


14/22 


40/13 




PSRMSG 


01D4 




20/10 


20/26 L 






PTNALC 


02AF 


♦EXTERNAL* 


3/49 X 


26/26 






PTNREL 


0?B0 


♦EXTERNAL* 


3/50 X 


26/27 






P18A0P 


028B 


♦EXTERNAL* 


3/57 X 


25/37 






PJPECM 


026F 


♦EXTERNAL* 


3/55 X 


25/06 






P1PMXP 


0280 


♦EXTERNAL* 


3/60 X 


25/27 






P1PPGA 


0287 


♦EXTERNAL* 


3/56 X 


25/33 






RPMASS 


0366 




29/06 


30/19 


32/07 L 


32/40 


RPMJN 


03 7F 




32/32 


32/35 L 






RDMP 


0372 




32/13 


32/19 L 






RDM] 


0373 




32/18 


32/21 L 






RPPTV4 


02B2 


*EXTERNAL* 


3/52 X 


26/29 






RPTHD 


0376 




32/24 L 


32/31 






RPWAIT 


037C 




32/31 L 


32/33 






REJ 


0180 




15/28 - 


15/43 


15/46 


16/31 


REJCK 


0192 




18/25 L 


18/27 






REJMSG 


0196 




18/23 


1R/31 L 






REJTH 


018E 




18/20 L 


18/25 






REL 


02AD 


♦EXTERNAL^ 


3/47 X 


26/24 






RESTRT 


001C 




6/24 L 


40/30 


40/33 




RPMASK 


0008 


♦EXTERNAL* 


2/34 X 


5/20 






RSET1 


02 7F 




25/27 L 


25/51 






RSET2 


0285 




25/28 


25/29 


25/32 L 




RSET4 


028A 




25/37 L 


25/48 






RSET6 


0297 




25/46 


25/49 L 






RSTRTA 


0165- 




17/08 


17/15 L 






RSTRTT 


0166 




17/11 


17/17 L 






RSTRT1 


00C7 




13/04 L 


13/09 






RSTRT2 


OOCD 




12/57 


13/08 


13/11 L 




RSTRT3 


00D3 




13/16 L 


13/21- 






RSTRT4 


OPPF 




13/28 L 


13/36 






RSTRT5 


O0E8 




13/31 


13/34 


13/38 L 




RSTRT6 


OOEE 




13/30 


14/12 L 






RSTRT9 


019C 




17/20 


17/25 


18/28 


19/09 L 


RSTR10 


01B9 




19/13 


19/19 


19/32 


20/07 L 


RSTR9A 


01A2 




19/12 


19/14 L 






RST1 


0021 




6/27 L 


8/17 






SAMOK 


0360 




32/12 


32/14 L 






SAVIO 


02A8 




23/12 


23/39 


26/17 L 




SAVLU 


0013 


♦EXTERNAL^ 


2/33 X 


5/28 






SCH 


02AE 


♦EXTERNAL* 


3/48 X 


26/25 







16/48 



18/07 L 
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SOJOB 


OOEB 




14/07 L 


14/J3 








SOL IB 


OOEC 




14/08 L 


14/17 








SPPRO 


OOED 




14/09 L 


14/21 








SEC 


037B 




32/08 


32/11 


32/17 


32/29 L 




SECTOR 


0354 




28/16 


31/20 L 


32/10 


32/14 


34/18 


SETEND 


002F 




6/35 


7/04 L 








SETPF 


0?6E 




24/41 


25/06 L 








SETTBL 


0024 




6/29 L 


6/37 








SETUP 


0078 




10/35 L 


10/40 


10/40 


10/40 


10/40 


SETUPO 


0075 




10/28 


10/30 Q 








SETUP1 


0097 




11/40 L 


11/44 


11/44 


11/44 


11/44 


SKIPIT 


004A 




8/19 


8/22 


8/26 L 






SM 


0?03 




21/13 


22/OP L 








SPACE 


0000 




2/10 E 


2/11 Q 








SPACE4 


02AB 


♦EXTERNAL* 


3/45 X 


26/22 








SPBLOP 


009C 




12/09 L 


12/1Z 








SPBLPO 


009B 




10/29 


12/07 Q 








SPCEV4 


02B1 


♦EXTERNAL* 


3/51 X 


26/28 








SPF 


0273 




25/08 


25/10 L 








SPF1 


0274 


* 


25/11 L 


25/20 








SPF5 


02 7B 




25/18 


25/21 L 








SREJ 


OlfiE 




14/42 


17/30 L 








SRJCK 


0176 




17/39 L 


17/41 








SRJMSG 


017A 




17/37 


17/45 L 








SRJTH 


0172 




17/34 L 


17/39 








SRSET 


0291 




25/39 


25/43 Q 


25/44 






STMSV4 


04CD 




2/18 E 


40/33 L 








STO 


024D 




24/12 


24/16 L 








SUMLVL 


02B5 




20/32 


27/04 L 


27/24 






SYOIR 


OOEB 


ABSOLUTE 


4/17 Q 


14/12 


14/16 


14/20 




SYFAIL 


005F 


♦EXTERNAL* 


2/30 X 


9/16 








SYSDAY 


02E4 


♦EXTERNAL* 


3/22 X 


27/56 








SYSIO 


0241 


♦EXTERNAL^ 


3/24 X 


23/07 


23/11 


23/15 


23/18 


SYSLVL 


02C1 


♦EXTERNAL* 


3/07 X 


27/16 








SYSMON 


02E3 


♦EXTERNAL* 


3/21 X 


27/55 








SYSYER 


02E5 


♦EXTERNAL* 


3/23 X 


27/57 








S101 


01FD 




21/09 


22/04 L 








S102 


0200 




21/11 


22/06 L 








SI 03 


02PB 




22/12 


22/14 L 








T 


02AA 




24/36 


26/21 L 








TBLAOR 


01 5A 


♦EXTERNAL* 


2/42 X 


16/57 








TPFUNC 


0017 


♦EXTERNAL* 


3/20 X 


5/35 








THRPNT 


034E 




29/18 


29/33 


30/08 


30/18 


30/21 


T1MSRT 


0112 




14/39 


15/22 L 


17/42 






TIMVCT 


0116 




15/23 


15/28 L 








TMRTYP 


01BA 


♦EXTERNAL* 


2/57 X 


15/22 


18/15 






TOIOLE 


0014 




5/31 L 


26/08 . 








TOUT 


0127 




15/46 L 


16/09 


16/20 


16/35 


16/41 


TTRSTR 


01 6C 




17/17 


17/24 L 








TX 


0107 




20/29 L 


20/34 








Tl 


0260 




24/35 L 


24/47 








T1AA 


029B 




25/09 


25/31 . 


26/04 L 






TIB 


026C 




24/39 


24/46 L 








T10 


0000 




2/17 E 


5/12 L 








T 10336 


014E 




15/36 


16/46 L 








T1572 


01 IF 




15/29 


15/41 L 








T1S73 


01 2A 




15/30 


16/06 L 
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T17 


OOOO 




2/19 E 


5/11 










T3644 


014A 




15/33 


16/39 L 










T72LST 


01 2F 




15/31 


16/13 L 










T72SRO 


01 3A 




15/32 


16/24 L 










UBPROT 


O0B2 


♦EXTERNAL* 


2/25 X 


12/37 










UPBDAD 


OOBE 




12/49 Q 


12/50 


12/52 








UPBOTB 


OOBE 


♦EXTERNAL* 


2/27 X 


12/48 










UPTOD 


016C 


♦EXTERNAL* 


2/44 X 


17/24 










VPL 


0004 


ABSOLUTE 


4/10 Q 


5/21 










VR 


0003 


ABSOLUTE 


4/09 Q 


5/17 


5/18 








VTMP 


0007 


ABSOLUTE 


4/13 Q 


5/23 










V20 


04 2F 




38/06 


38/23 


38/27 


38/32 


38/37 L 




V22 


0430 




38/07 


38/24 


38/38 L 


38/49 


38/55 


39/07 


V27 


0431 




38/08 


38/39 L 


38/50 


38/52 






X32K 


02D5 




24/11 


27/39 L 










X65K 


02DC 




24/13 


27/47 L 










YEAR 


02E5 




20/19 


27/57 L 










ZERO 


0022 


ABSOLUTE 


4/11 Q 
5/19 


11/12 
14/15 


15/24 
24/40 


24/44 
24/45 


26/31 
34/11 


38/14 
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ADDRESS 


LENGTH 




BINARY 


CONTROL CARD 


S. 


0000 
0169 


0169 




NAM 
END 


DCORE 


DECK- II 






BLOCKS 


TYPE 


ADDRESS 


LENGTH 






DCORE 
TEMPL 


PROGRAM* 0000 
LOCAL OOBE 


0169 
0001 



SUMMAR 



ENTRY POINT NAMES AND ADDRESSES. 



ECORE — 0123 

ICORE — 0002 

LEND -- OOBD 

LOOP — 00C3 



N0G30A -- OOCF 
OUTPUT — 0081 
REL — 011E 
SCH -- 0141 



SPACE4 — 00B5 
STLPV4 — 008B 
SWAPCK — 012C 
SWAPON — OOBC 



T12 



- OOEB 



EXTERNAL SYMBOLS. 



AREAC 


L0G2 


PCORE 


PTNREL 


IDLER 


LVLSTR 


PRTCDR 


RDPTV4 


K65T12 


0UTPV4 


PTNALC 


REQALC 



RTNCOR SPCEV4 
SCHERR SWAPAR 
SPASW UNPIO 
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NAM DCORE DECK- ID M19 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY- 110 DCORE 2 

DCORE 3 

DCORE 4 

DCORE 5 



10. 



SPACE DRIVER, DRIVES CORE ALLOCATOR MODULE DCORE 7 

1700 MASS STORAGE OPERATING SYSTEM VERSION 4.1 DCORE 8 

SMALL COMPUTER DEVELOPMENT DIVISION, LA JOLLA, CALIFORNIA DCORE 9 

COPYRIGHT CONTROL DATA CORPORATION 1973 DCORE 10 



15 



20 



25 



* THIS MODULE DRIVES THE CORE ALLOCATOR IN ASSIGNING 

* AND RELEASING SPACE. IT ALSO CONTROLS SWAPPING. 

* REVISED TO PERMIT USE BY REQUESTS FROM ABOVE DRCORE PRIORITY LEVEL 

* TO AVOID DELAYING REQUESTS, ENTIRE DRIVER RUNS AT THE PRIORITY 

* LEVEL THAT"S IN THE PHSTAB. 

* DRCORE LOOPS AT LEVEL = PRI FOR 6 * KS1ZE MILLISECS 

* DURING SET AND CLEAR OF SWAP AREA PROTECT BITS 

* WHERE KSIZE IS THESIZE OF UNPROTECTED CORE / 1000 



DCORE 


14 


DCORE 


15 


DCORE 


17 


DCORE 


18 


DCORE 


19 


DCORE 


21 


DCORE 


22 


DCORE 


23 



30 



35 



40 



45 



50 



55 



0002 
OOEB 
0123 
OOBD 

onnc 
oopb 

00C3 
0081 
00B5 
OOCF 
011E 
0141 



0005 
OOEA 
0022 
00B6 
0002 
0012 
00B5 
OOBF 



ENT IC0RE,T12,EC0RE,LEND 



ENT SWAPON 

ENT STLPV4.L00P 

ENT OUTPUT, SPACE4,N0G30A,REL,SCH 



1 CARD DELETED 

EXT RTNCOR.SWAPAR.PCORE 

EXT UNPI0,SPASW,L0G2,REQALC,LVLSTR,AREAC 

EXT SCHERR ENTRY POINT IN SCHEDULER 

EXT PTNALC 

EXT PTNREL 

EXT K65T12 

EXT SPCEV4,RDPTV4,0UTPV4 

EXT PRTCDR 

EXT IDLER IDLE LOOP IN SYSDAT 

EQU LU(5) ,ADISP($EA) ,ZER0($22) ,AC0MPR($B6) 



EQH LPMSK(2),NZERO($12),AFNR($B5),ANABS($BF) 



**MSOS 4.1** DCORE 



DCORE 
^MSOS 4.0 DCORE 



DCORE 



DCORE 



25 



26 
27 

28 



DCORE 


29 


DCORE 


30 


DCORE 


31 


*434**** [jcORE 


32 


**MSOS 4.0 DCORE 


33 


**MSOS 4.0 DCORE 


34 


**MSOS 4.0 DCORE 


35 


**MSOS 4.0 DCORE 


36 


**MSOS 4.0 DCORE 


37 


*MSOS 4.1** DCORE 


38 
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IB 



00B8 




EQU 


AVOLA($BB),/ 


\VOLR($BA) 


OOBA 










OOF 7 




EQU 


L0C0RE($F7), 


,HIC0RE($F6),TIME(4) 


OOF 6 










0004 










0001 




EQU 


CORELU(l) 


CORE ALLOCATOR LOGICAL UNIT 


0005 




EQU 


ELU(5) 




0002 


* 
* 


EQU 


PT(2) 


SWAPS. SET TO -1 WHEN 
NO TIMER PACKAGE USED. 


00B9 




EQU 


REQXT($B9) 




0023 




EQU 


0NEBIT($23) 





UCORE 


41 


DCORE 


42 


DCORE 


43 


DCORE 


44 


DCORE 


4b 


DCORE 


46 


DCORE 


47 


DCORE 


48 


DCORE 


49 
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PPOOO 


FFFF 


P0001 


FFFF 


POPO? 


40FF 


P0003 


54B5 


P0004 


1849 


P0005 


E106 


P0006 


C622 


P0007 


0F49 


P0008 


A007 


P0009 


09F1 


POOOA 


0113 


POOOB 


61 OA 


POOOC 


610B 


POOOD 


1832 


POOOE 


4P63 


POOOF 


54BF 


P0010 


CC31 


P0011 


0104 


P0012 


CC5F 


P001 3 


A006 


POOH 


OPFC 


P001 5 


0131 


PPOlfi 


180P 


P001 7 


C85A 


P001P 


EPEP 


PP019 


onoo 


PP01A 


0141 


P001B 


6202 


P0P1C 


0151 


PP01D 


6PE2 


PPP1E 


68E2 


P001F 


0822 


PPP2P 


0804 


PP021 


6202 


PPP22 


18E0 



WAIT NUM -0 
BOTTOM NUM -0 
ICORE STQ- I 



C0R1 



TRY 



OOOE P 



RTJ- 
JMP* 
LDQ- 
LDA- 
ARS 
AND- 
1NA 
SAN 
STA- 
STA- 
JMP* 
NOTMOT EQU 
STQ* 
RTJ- 
LDA* 
SAZ 
LDA* 
AND- 
INA 
SAM 
OKO JMP* 
NOTOK LDA* 
LDQ* 
INQ 
SQZ 
STA- 
SQN 
STA* 
STA* 
TRA 
SET 
STA- 
JMP* 



(AFNR) 

WAIT2 

6,1 

(ZERO),Q 

9 

LPMSK+5 

-14 

NOTMOT 

10,1 

11,1 

ASWAPD-2 

NOTMOT(*) 

TEMP 

(ANABS) 

(ASWAPD) 

OKO-*-l 

(TEMP) 

LPMSK+4 

-3 

NOTOK-*-l 

OKI 

TEMP 

BOTTOM 



1 

PT.Q 

1 

WAIT 

BOTTOM 

Q 

A 

PT.Q 

C0R1 



P0023 



CC4E 



OKI IDA* (TEMP) 



TOP OF WAIT THREAD 


**MSOS 4.0 DCORE 


53 




**MSOS 4.0 DCORE 


54 


**MSOS 4.1** DCORE 


55 


38 CARDS DELETED 


DCORE 


56 


GET NEXT REQUEST FOR SPACE 


DCORE 


57 




DCORE 


58 


GET LOC. OF REQUEST 


DCORE 


59 


REQUEST 


DCORE 


60 




DCORE 


61 


ISOLATE CODE 


DCORE 


62 




DCORE 


63 


NO MOTION 


DCORE 


64 


ZERO FIRST 


DCORE 


65 


LAST 


DCORE 


66 


GO COMPLETE REQUEST 


DCORE 


67 




DCORE 


68 


AND GET NO. OF WORDS TO Q. 


DCORE 


69 




DCORE 


70 




DCORE 


71 


SKIP IF NOT SWAPPED 


**MSOS 4.0 DCORE 


72 




DCORE 


73 




DCORE 


74 




DCORE 


75 


SKIP IF COMPLETION PRIORITY LT 3 


**MSOS 4.0 DCORE 


76 


GO ALLOCATE 


**MSOS 4.0 DCORE 


77 


POINTER TO NEW REQUEST 


**MSOS 4.0 DCORE 


78 


POINTER TO LAST REQUEST ON THREAD 


**MSOS 4.0 DCORE 


79 




**MSOS 4.0 DCORE 


80 


NOTHING ON THREAD 


**MSOS 4.0 DCORE 


81 


POINTER TO NEW REQ. IN THI). OF LAST 


**MSOS 4.0 DCORE 


82 




**MSOS 4.0 DCORE 


83 


ONLY ENTRY ON THREAD, SO BOTH TOP- 


**MSOS 4.0 DCORE 


84 


B01I0M OF THREAD 


**MSOS 4.0 DCORE 


85 




**MSOS 4.0 DCORE 


86 


MARK END OF THREAD 


**MSOS 4.0 DCORE 


87 


IN THREAD OF NEW REQ. 


**MSOS 4.0 DCORE 


88 


GO CHECK FOR ANOTHER REQUEST 


**MSOS 4.0 DCORE 


89 


3 CARDS DELETED 


DCORE 


90 


GET 1ST WORD OF PAR. LIST 


DCORE 


91 
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40 



45 



PP024 
PP025 
P0026 
PO027 



PP029 

pnn?A 

PPP2B 

Pon?c 

P002D 
P002E 
PP02F 
P0030 
P0031 
P0032 
P0033 

P0034 
P0035 
P0036 
P0037 
P0038 
P0039 
P003A 

pnn3C 

P0030 
P003E 
P003F 
P0040 
P0041 

PP04? 
P0043 
P0044 
P0045 
PP046 
P0047 
PP048 
P0049 
P004A 
P0D4B 
P004C 



0F44 
A006 
OFFO 
5400 7FFF X 



OB 00 
0177 
0158 
EOEP 
C20A 
820B 
0113 
CC11 
0111 
1827 
F032 

CC3D 

A01B 

010B 

0814 

E839 

6203 

E800 0080 

A01F 

6209 

40FF 

54B6 

1PC2 

00B7 P 

0178 
0814 
EP2D 
6201 
F021 
4803 
0822 
54F4 
0000 
E870 
18B5 



ARS 
ANP- 
LLS 
RTJ 



NOP 

SQM 

SQN 

LDQ- 

LDA- 

APD- 

SAN 

LDA* 

SAN 

JNOGOT JMP* 
ADQ- 

* 

ONE LDA* 
AND- 
SAZ 
TRQ 
LDQ* 
STA- 
LDQ 
AND- 
STA- 
STQ- 
RTJ- 
JMP* 

ASWAPD ADC 

OIRCAL SQM 
TRQ 
LDQ* 
STA- 
ADQ- 
STQ* 
TRA 
RTJ- 
NUM 
LDQ* 



4 

LPMSK+4 
16 
REQALC 



START 
IF 
-1 IF 



DIR1 











JNOGOT-*-l 

ONE-*-l 

$E9 

10.Q 

11. Q 

JNOGOT+l 

(ASWAPD) 

1 

NOGOT 

ONEBIT+15 

(TEMP) 

NZERO+9 

DIRCAL-*-l 

A 

TEMP 

3,Q 

XCORE 

NZERO+13 

9,Q 

I 

(ACOMPR) 

C0R1 

SPACE4+2 

DIRl+l-*-l 

A 
TEMP 

1.0 

NZERO+15 

DIR1 



($F4) 



XCORE 



AND UNPACK REQUEST PRIORITY 



GO TO ALLOCATE CORE SPACE 
OF ALLOCATED AREA, IF REQUEST WAS SUCCESSFUL 
SUFFICIENT CORE CAN NEVER BE AVAILABLE 
THE AVAILABLE CORE IS INSUFFICIENT AT PRESENT 

********************************************* 

I 

ALLOCATION WAS SUCCESSFUL 

IF UNPROTECTED IN PARTI 

OR SWAPS INHIBITED 

IN PAR TO 

REQUEST IMPOSSIBLE 

IF SWAP IS IN EFFECT, REQUEST IS IMPOSSIBLE 
UNSUCCESSFUL ALLOCATION 
IF ALLOCATION IS IMPOSSIBLE, SET Q15 = 1 
AND COMPLETE REQUEST WITH ERROR FIELD SET 



SKIP IF DIRECTORY CALL 

STORE ORIGIN OF ALLOCATED 
SPACE IN CALL 



STORE ORIGIN IN PHYSTB FOR 
USE BY COMPRQ 

GO GET NEXT REQUEST 

ADDR. OF THREAD TO RETURN SWAPPED CORE 



JMP* ICORE 



IF CORE NOT ALLOCATED, IGNORE REQUEST 
STORE ORIGIN AS COMP. ADDRESS 

START I/O 



RESTORE PHYSTB ADDRESS 
GO GET NEXT ONE 



DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 



DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
**MSOS 4.1** DCORE 
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93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 



50 
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P0P4D 
P004E 
PP04F 
P0050 
P0051 
P0P52 
P0053 
P0054 
PP055 
P0P56 



EPB2 
ODOO 
0153 
0804 
6PAF 
14FA 
C202 
68AB 
0814 
5C13 



WAIT2 LDQ* WAIT 
INQ 
SQN WAIT3 
SET A 
STA* BOTTOM 
JMP- ($EA) 

WAIT3 LDA- PT.Q 
STA* WAIT 
TRQ A 
RTJ* (GTIIDIT) 



MOVE THE WAIT THREAD BACK TO CORE LU THREAD 



NOTHING LEFT ON THREAD 

SFT BOTH THD POINTERS TO -0 

AND EXIT 

POINTER TO NEXT ENTRY ON THD. 

UPDATE TOP OF THD. 

MOVE TO CORE LU THD. 



DCORE 137 

DCORE 138 

DCORE 139 

DCORE 140 

**MS0S 4.0 DCORE 141 

**MSOS 4.0 DCORE 142 

**MSOS 4.0 DCORE 143 

**MSOS 4.0 DCORE 144 

**MSOS 4.0 DCORE 145 

**MSOS 4.0 DCORE 146 

**MSOS 4.0 DCORE 147 
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PP057 
P0058 



1PF5 
7FFF X 



JMP* WAIT? 
XL0G2 ADC L0G2 
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REPEAT UNTIL WAIT THREAD IS EMPTY DCORE 

DCORE 



PP059 


C862 


NOGOT 


LDA* 


XCORE 


P005A 


60FF 




STA- 


I 


P005B 


CC16 




LDA* 


(TEMP) 


P005C 


A006 




AND- 


LPMSK+4 


P005D 


09FC 




INA 


-3 


P005E 


0138 




SAM 


N0G1-*-! 


P005F 


E0E9 




LDQ- 


$E9 


P0060 


C20A 




LDA- 


10.Q 


P0061 


820B 




ADD- 


ll.Q 


P0P62 


0101 




SAZ 


1 


P0P63 


1804 




JMP* 


N0G1 


P0064 


CP58 




LDA* 


SWAPON 


POOPS 


Oil] 




SAN 


1 


P0066 


1P0C 




JMP* 


N0G2 


P0067 


C80A 


N0G1 


LDA* 


TEMP 


P0P68 


5400 0J4O p 




RTJ+ 


THRDIT 




0069 P 


GTHDIT 


EQU 


GTHDIT(*-1) 


PPP6A 


0C01 




ENQ 


CORELU 


PP06B 


CEEC 




LDA* 


(XL0G2),Q 


PP06C 


9805 




SUB* 


TEMP 


P006D 


0101 




SAZ 


1 


P0Of,E 


1894 




JMP* 


C0R1 


P006F 


6105 




STA- 


ELU.I 


P0070 


14EA 




JMP- 


(ADISP) 


P0071 


0000 


TEMP 


ADC 






* THE FOLLOWING IS ENTERRED ON UN-SUCCESSFUL ALLOCATION 



RESTORE PHYSTB ADDRESS 
IF COMPLETION PRIORITY IS 
NOT GREATER THAN 2, 
DONOT TRY TO SWAP. 



IF SWAP INHIBITED, DO NOT 
ATTEMPT SWAP, RE-THREAD 

REQUEST 



GO TO N0G2 IF NOT SWAPPED 



IF TOP OF THREAD CHANGED 

TRY AGAIN 

CLEAR SPACDR BUSY FLAG 

ADDRESS OF CURRENT REQUEST 



DCORE 

DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
**MSOS 4.0 DCORE 
**MSOS 4.0 DCORE 
DCORE 
**MSOS 4.0 DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
**MSOS 4.0 DCORE 
**MSOS 4.0 DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
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54 
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JW 



*CM* 



v 



L 
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P0072 


C104 


PP073 


0131 


P0074 


18F2 


P0075 


CC4A 


P0076 


0102 


P0077 


6C49 


P0078 


1PEE 


P0079 


C0F6 


P007A 


90F7 


P007B 


09FE 


P007C 


6800 


P007D 


C0F7 


P007E 


0901 


P007F 


6P07 


POOPO 


54F4 


P00P1 


4CF0 


P008? 


0098 P 


P0083 


0000 


P00R4 


08C2 



N0G2 



N0G4 



N0G5 



LDA- TIME, I 
SAM N0G4-*-l 
JMP* N0G1 
LDA* (XUNPIO) 
SAZ N0G5-*-l 
STA* (XSPASW) 
JMP* N0G1 - 



LPA- HICORE 

SUB- LOCORE 

INA -1 

STA* LENGTH 

LDA- LOCORE 

INA 1 

STA* START 

RTJ- ($F4) 

OUTPUT ADC $4CF0 

ADC N0G20 

NUM 0,$PC2 



IF INTERVAL SINCE LAST SWAP 
HAS PASSED, SKIP TO N0G4 



SKIP IF NO UNPROTECTED I/O 
SET WAITING TO SWAP SWITCH 



SET UP SWAP WRITE BLOCK 
SIZE AND START 



PART 1 FWR1TE 



DCORE 


180 


DCORE 


181 


DCORE 


182 


DCORE 


183 


DCORE 


184 


DCORE 


185 


DCORE 


186 


DCORE 


188 


DCORE 


189 


DCORE 


190 


DCORE 


191 


DCORE 


192 


DCORE 


193 


DCORE 


194 


DCORE 


195 


**MSOS 4.0 DCORE 


196 


DCORE 


197 


DCORE 
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P00P5 


0000 


P00P6 


0000 


P0087 


0000 


POOPP 


7FFF X 


P0089 


5802 


POPPA 


1PPC 


P008B 


OB 00 


POOPC 


OAOO 


POOPP 


6C33 


PPPPE 


C83A 


P008F 


6834 


pncioo 


CP39 


P0091 


0114 


P0092 


0837 


P0093 


54F4 


P0094 


5202 


P0095 


00C1 P 


P0096 


D826 


P0097 


1CF3 



LENGTH NUM 
START NUM 



NUM 
ADC SWA PAR 
RTJ* STLPV4 
JMP* N0G1 



STLPV4 NOP 
ENA 
STA* 
LDA* 
STA* 
LDA* 
SAN 
RAO* 
RTJ- 
VFD 
ADC 

TURNON RAO* 
JMP* 







(XSPASW) 

L00P1 

LOOP ' 

LOOPFG 

TURNON-* 

LOOPFG 

($F4) 



TELL 
SWAP 



PROTECT PROCESSOR 
IS NOT WAITING 



SET UP AND SCHEDULE LEVEL 
IF LOOP NEVER RAN 
1 DO NOT RESCHEDULE IT 
SET FLAG 

2 LOOP SO AS TO LOCK OUT 
Nl/0,Nl/l,N5/9,Nl/0,N4/0,N4/2 JOB PROCESSING 
LOOPEN 

SWAPON TURN ON SWAP INDICATOR 
(STLPV4) 



DCORE 199 

DCORE 200 

DCORE 201 

DCORE 202 

**MS0S 4.0 DCORE 203 

**MSOS 4.0 DCORE 204 

**MS0S 4.0 DCORE 205 

**MSOS 4.0 DCORE 206 

**MSOS 4.0 DCORE 207 

DCORE 208 

DCORE 209 

DCORE 210 

DCORE 211 

DCORE 212 

DCORE 213 

DCORE 214 

DCORE 215 

***MS0S4.0 DCORE 216 

DCORE 217 

DCORE 218 

**MSOS 4.0 DCORE 219 
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P0098 


C0F6 


N0G20 


LDA- 


HICORE 


P0099 


09FE 




INA 


-1 


P009A 


6823 




STA* 


LEND 


P009B 


E0F7 




LDQ- 


LOCORE 


P009C 


0P01 




INQ 


1 


P009D 


C400 7FFF X 


N0G6 


LDA+ 


LVLSTR 


P009F 


4CFE 




STQ* 


(N0G6+1) 


POOAO 


6P1E 




STA* 


TEMPL 


P0PA1 


OP] 4 




TRQ 


A 


P00A2 


0902 




INA 


2 


P00A3 


620] 




STA- 


l.Q 


P00A4 


CPEO 




LDA* 


LENGTH 


PPPA5 


6622 




5TA- 


(ZERO),Q 


POOAfi 


5400 7FFF X 




RTJ+ 


RTNCOR 


POOAP 


EPF6 




LDQ- 


HICORE 


P00A9 


C8DB 




LDA* 


LENGTH . 


PPPAA 


OPFE 


N0G21 


INQ 


-1 


POPAB 


0600 




SPB 





POPAC 


09FE 




INA 


-1 


POOAD 


0101 




SAZ 


N0G22-*-l 


POPAE 


18FB 




JMP* 


N0G21 


POOAF 


EPOC 


N0G22 


"LDQ* 


XCORE 


POOBO 


4 OFF 




STQ- 


I 


P00B1 


C8D3 




LDA* 


LENGTH 


PPCB2 


09FD 




INA 


-2 


P0CB3 


6P06 




STA* 


SPACE1 


P0PR4 


54F4 




RTJ- 


($F4) 


P00B5 


5400 


SPACF4 


VFD 


N1/0.N1/1 


P0CB6 


OOCA P 




ADC 


N0G30,, 



THIS ROUTINE IS ENTERRED ON COMPLETION OF SWAP I/O 



UPDATE TOP OF ALLOCATABLE AREA 

UPDATE START OF LEVEL ZERO 
PCMS IN LVLSTR TABLE 



SET UP PSEUDO THREAD FOR ALLOCATOR 



SET PROTECT BITS FOR THE AREA 



DCORE 



222 



SET UP SPACE REQUEST TO 
GET CORE BACK + PUT 
IT ON WAIT THREAD 
SPACE REQUEST 
,N5/10,Nl/0,N8/0 



DCORE 


224 


DCORE 


225 


DCORE 


226 


DCORE 


227 


DCORE 


228 


DCORE 


229 


DCORE 


230 


DCORE 


231 


DCORE 
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DCORE 


233 


DCORE 
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DCORE 


235 


DCORE 


236 


DCORE 


237 


DCORE 
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DCORE 
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DCORE 


240 


DCORE 
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DCORE 
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DCORE 


243 


DCORE 


244 


DCORE 


245 


DCORE 
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DCORE 


247 


DCORE 
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DCORE 


249 


DCORE 
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DCORE 


251 


***MS0S4.0 DCORE 


252 
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PO0B7 


0000 










POOBP 


0000 










P00B9 


0000 




SPACE 1 NUM 





SIZE 


POORA 


1P69 




JMP* 


REL1 


RESTART DRIVER IF NOT BUSY 


POOBB 


7FFF X 




XCORE ADC 


PCORE 




POOBC 


0000 




SWAPON NUM 





ZERO WHEN NOT SWAPPED 


POOBD 


0000 




LEND ADC 





LWA OF ALLOCATABLE - STUFFED BY SPACE 


POOBE 




0001 


TEMPL BSS 


TEMPL 


TEMPORARY HOLD FOR LVLSTR 


POOBF 


7FFF X 




XUNP10 ADC 


UNPIO 


UNPROTECTED I/O REQUEST COUNT ADR 


POOCO 


7FFF X 




XSPASW ADC 


SPASW 


SWAP WAITING SWITCH ADR 


P00C1 


0844 




LOOPEN CLR 


A 




P00C2 


6P07 




STA* 


LOOPFG 




P00C3 


OBOO 




LOOP NOP 





**MSOS 4, 


P00C4 


OB 00 




NOP 





MATCH CYCLES IN LEVEL -1 LOOP **MS0S 4 


P00C5 


5400 


7FFF X 


RTJ+ 


IDLER 


USE SYSDAT IDLE LOOP **MSOS 4. 


P0OC7 


18FB 




JMP* 


LOOP 


**MSOS 4 


P00C8 


OBOO 




L00P1 NOP 





**MSOS 4. 


P00C9 


0000 




LOOPFG NUM 





FLAG TO PREVENT MORE THAN ONE LEVEL 2 LOOP 



DCORE 
DCORE 



DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

.1** DCORE 

.1** DCORE 

1** DCORE 

.1** DCORE 

,1** DCORE 

SCH DCORE 
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ENTER HERE WHEN SWAPPED 
SPACE BECOMES AVAILABLE AGAIN 



POOCA 


CPBA 


POOCB 


6P0P 


pnocc 


CPB9 


POOCD 


6P07 


POOCE 


54F4 


POOCF 


4800 


POOPO 


00D8 P 


P00D1 


0000 


P00D2 


08C2 


P00D3 


0000 


P00D4 


0000 


P00D5 


0000 


P00D6 


0088 X 


P00D7 


14EA 


P00P8 


C8FE 


P00D9 


6PE9 


POPPA 


CPE 3 


POOPB 


6CC2 


POOPC 


C0F7 


POOPP 


6PDF 


POPPE 


EPOC 


PPPPF 


C20D 


POPEO 


6204 


P0PE1 


EOFfi 


P00E2 


CRA2 


P00E3 


PPFE 


PP0E4 


P7PP 


PP0E5 


09FE 


P00E6 


0101 



N0G30 

* 
N0G30A 



LGTH 
STRT 



AJDISP 
N0G33 



LDA* LENGTH 
STA* LGTH 
LDA* START 
STA* STRT 



STUFF PARAMTERS 



N0G32 



RTJ- ($F4) READ SWAPPED AREA BACK 

VFD N1/0.N1/1 ,N5/4,Nl/0,N4/0,N4/0 

ADC N0G33 

NUM 

NUM $8C2 

ADC 

ADC 

ADC 

ADC SWAPAR 

JMP- (ADISP) . 

LDA* AJDISP 

STA* LOOP 

LDA* TEMPL 

STA* (N0G6+1) 

LDA- LOCORE 

STA* LEND 

LOO* XCORE 

LPA- 13,0 

STA- TIME.Q 

LDQ- HICORE 

LPA* LENGTH 

I HO -1 

CPB 

INA -1 

SAZ N0035-*-l 



IN 



MSB 
LSB 



TURN OFF LEVEL 2 LOOP 

RESTORE LVLSTR 

RESTORE END OF ALLOCATABLE CORE 

DELAY TIME 

RESET TIME SINCE LAST SWAP 



CLEAR PROTECT BITS IN THE AREA 



***MS0S4. 
***MS0S4, 
***MS0S4. 
***MS0S4, 
***MS0S4, 
***MS0S4, 
***MS0S4. 



***MS0S4 
***MS0S4 
***MS0S4, 
***MS0S4 



DCORE 
DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

PCORE 

DCORE 

PCORE 

DCORE 

DCORE 

DCORE 

DCORE 

DCORE 

PCORE 
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P00E7 


18FB 


P00E8 


0500 


P00E9 


6802 


POOEA 


1839 



N0G35 



JMP* N0G32 
UN 
STA* SWAPON 
JMP* REL1 



TURN OFF SWAP INDICATOR 

IF DRIVER NOT RUNNING, RESTART IT 



UCORE 
DCORE 
DCORE 
DCORE 



304 
305 
306 
307 
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* THIS IS ENTERREO FROM RELEASE REQUESTS 
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POOFR 


C10P 


POOEC 


0132 


POOEP 


D103 


POfEE 


P1P3 


POOEF 


E105 


PPOFO 


C622 


P0OF1 


A023 


POOF 2 


0102 


P00F3 


COEA 


P00F4 


fil03 


POOF 5 


C622 


P00F6 


A031 


POOF 7 


0102 


P00F8 


1400 


POOFA 


C106 


POOFB 


01 2C 


POOFC 


C622 


POOFD 


A02B 


POOFE 


0115 


POPFF 


E106 


P0100 


con 


P0101 


08B2 


P0102 


C622 


P0103 


1P05 


P0104 


0814 


P0105 


AOH 


P01P6 


8106 


P0107 


A011 


P01PP 


09FP 


P0109 


0822 


P010A 


POOP 


P010C 


01 3E 


P010D 


0814 


P010E 


8622 


P010F 


0500 


P0110 


9P00 


P0112 


P9F0 


P0113 


0127 


P0114 


0814 


P0115 


0902 


P0116 


9201 


P0117 


0113 


P011P 


C622 


P0119 


09FD 


P011A 


0122 


P011B 


1400 


P011D 


54F4 



7FFF X 



7FFF X 



FFAB 



7FFF X 



TJ2 


LDA- 


P,I 


DCORE 


311 




SAM 


RlA-*-l 


SKIP IF INDIRECT REQUEST **MSOS 4.0 DCORE 


312 




RAO- 


3,1 


UPDATE RETURN FOR DIRECT CALL DCORE 


313 




RAO- 


3,1 


DCORE 


314 


R1A 


LDQ- 


5,1 


DCORE 


315 




LDA- 


(ZERO),Q 


CHECK BIT (R) DCORE 


316 




AND- 


$23 


OF FIRST WORD OF REQUEST DCORE 


317 




SAZ 


Rl-*-l 


CHECK RETURN INDICATOR DCORE 


318 




LDA- 


ADISP 


IF NOT ZERO DCORE 


319 




STA- 


3,1 


RETURN TO ADR OF DISPATCHER DCORE 


320 


Rl 


LDA- 


(ZERO),Q 


CHECK THE D PARAMETER OF THE REQUEST**MSOS 4.0 DCORE 


321 




AND- 


ONEBIT+14 


TO DETERMINE WHICH AREA TO RELEASE **MSOS 4.0 DCORE 


322 




SAZ 


Rll-*-l 


SKIP IF PART RELEASE REQUEST **MS0S 4.0 DCORE 


323 




JMP 


K65T12 


GO RELEASE PART 1 AREAS **MS0S 4.0 DCORE 


324 


Rll 


LDA- 


6,1 


TRANSLATE RETURN PARAMETERS **MS0S 4.0 DCORE 


325 




SAP 


R29-*-l 


DCORE 
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LDA- 


(ZERO),Q 


DCORE 


327 




AND- 


ZERO+9 


DCORE 


328 




SAN 


R2-*-l 


DCORE 


329 




LDQ- 


6,1 


**MS0S 4.0 DCORE 


330 




LDA- 


NZERO-1 


MASK INDIRECT BIT FROM "S" PARAMETER DCORE 


331 




LAQ 


Q 


SAVE IN Q-REG DCORE 


332 




LDA- 


(ZERO).Q 


DCORE 


333 




JMP* 


R2° 


DCORE 


334 


R2 


TRQ 


A 


DCORE 


335 




AND- 


NZERO-1 


DCORE 


336 




ADD- 


6,1 


**MSOS 4.0 DCORE 


337 




AND- 


NZERO-1 


DCORE 


338 


R29 


INA 


-2 


DCORE 


339 




TRA 


Q 


DCORE 


340 




SUB 


=XAREAC 


AREA RETURNED BELOW AREAC IS IN ERR0R*434**** DCORE 


341 




SAM 


ERROR 


*434**** DCORE 


342 




TRQ 


A 


*434**** DCORE 


343 




ADD- 


(ZERO).Q 


*434**** DCORE 


344 




I IN 





*434***** DCORE 


345 




SUB 


LEND 


*434**** DCORE 


346 




INA 


-2 


OK TO RETURN BLOCK THAT ENDS AT LEND 63*1213 DCORE 


347 




SAP 


ERROR 


END OF AREA RETURNED ABOVE LEND IS AN ERROR** DCORE 


348 




TRQ 


A 


*434 DCORE 


349 




INA 


2 


*434**** DCORE 


350 




SUB- 


l.Q 


*434**** DCORE 


351 




SAN 


ERROR 


HEADER WORD NOT POINTING TO 1ST WORD OF AREA DCORE 


352 




LDA- 


(ZERO).Q 


*434**** DCORE 


353 




INA 


-2 


*434**** DCORE 


354 




SAP 


R41 


LENGTH LESS THAN TWO IS AN ERROR *434 DCORE 


355 


ERROR 


JMP 


SCMERR 


SET BIT 15 OF Q AND RETURN TO REQUESTOR DCORE 


356 


R41 


RTJ- 


($F4) 


DCORE 


357 
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REL ADC $5200 RELEASE AT 0RIVER PRIORITY LEVEL **MS0S 4.0 DCORE 358 

AOC RELEAS **MS0S 4.0 DCORE 359 

Rfi JMP- (REQXT) DCORE 360 
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15 
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P0121 


5400 


P0A7 


X 


P0123 


E897 










0123 


P 


P0124 


0500 






P0125 


C205 






P0126 


0101 






P0127 


14EA 






P0128 


0A01 






P0129 


6205 






P012A 


1800 


FED6 








0120 


P 



RELEAS RTJ+ RTNCOR 
REL1 



REL2 



LDQ* 


XCORE 


EQU 


ECORE(RELl) 


UN 





LDA- 


LU.Q 


SAZ 


REL2-*-l 


JMP- 


(ADISP) 


ENA 


CORELU 


STA- 


LU,Q . 


JMP 


1C0RE 



SET ALLOCATOR BUSY 

ENTRY FROM DIAGNOSTIC TIMER 

INHIBIT INTERRUPTS 



CHECK FOR WAITING REQUESTS 



EQU R5(R6) 



DCORE 

DCORE 
DCORE 

**MSOS 4.1** DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 

**MSOS 4.1** DCORE 
DCORE 
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364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 



25 



THE SWAPCK SUBROUTINE IS ENTERED TO DECREMENT UNPIO DCORE 376 
WHEN UNPROTECTED I/O IS COMPLETED, BY JOBPRO AND LIBEDT DCORE 377 
IF UNPIO EQ AND SPASW NE 0, DRCORE IS RESTARTED DCORE 378 
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P012C 


0000 


P012D 


0500 


P012E 


54BB 


P012F 


0004 


P013P 


CPFB 


P0131 


0400 


P0132 


6103 


P0133 


CC8B 


P0134 


01 OE 


P0135 


OPFE 


P0136 


6C88 


P0137 


011B 


P0138 


CC87 


P0139 


0109 


P013A 


OCOA 


P013B 


C6E9 


P013C 


0103 


P013D 


COOO 


P013F 


6803 


P0140 


54F4 


P0141 


5200 


P014? 


0123 


P0143 


0500 


P0144 


C103 


P0145 


68E6 


PP146 


54BA 


P0J47 


0400 


P0148 


1CE3 



7FFF X 



ENT 
SWAPCK NUM 
UN 
RTJ- 
NUM 
LDA* 
EIN 
STA- 
LDA* 
SAZ 
INA 
STA* 
SAN 
LDA* 
SAZ 
ENQ 
LDA- 

SAZ 
LDA 
STA* 
RTJ- 
VFD 
ADC 
SWCKEX UN 
LDA- 
STA* 
RTJ- 
EIN 
JMP* 



SCHA 
SCH 



SWAPCK 





(AVOLA) 

4 

SWAPCK 



3,1 

(XUNPIO) 

SWCKEX-*- 

-1 

(XUNPIO) 

SWCKEX 

(XSPASW) 

SWCKEX-*- 

10 

($E9),Q 



ENTERED WHEN UNPROTECTED I/O IS COMPLETED 
GET VOLATILE 



SAVE RETURN ADDRESS 
DECREMENT UNPIO BY 1 



SCHA 

=XPRTCDR 

SCH+1 

($F4) 

Nl/0,Nl/l,N5/9,Nl/0,N8/0 

REL1 



3,1 

SWAPCK 

(AVOLR) 



(SWAPCK) 



EXIT IF SWAP NOT POSSIBLE 

SKIP IF NOT WAITING TO SWAP 

GET RESIDENCY OF UNPROTECTED FROM 
EXTENDED CORE TABLE 
SCHEDULE PARTITION CORE 
DRIVER IF UNPROTECTED 
IS IN PART 1 



63*1378 



**MSOS 4.0 
**MSOS 4.0 
**MS0S 4.0 
**MSOS 4.0 
SCHEDULE DRIVER IF NOT BUSY*** 
***MS0S4.0 



RESTORE RETURN ADPRESS 
RELEASE VOLATILE 



RETURN TO USER 
2 CARDS DELETED 
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DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
DCORE 
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DCORE 
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P0149 
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POM 


681E 


P014B 


CC1D 


P014C 


A811 


P014D 


6811 


P014E 


E800 


P0150 


ODFE 


P0151 


0500 


P0152 


4P00 


P0153 


E202 


P0154 


OPOO 


P0155 


0151 


P0I56 


1P0A 


PP1B7 


C622 


PPI5P 


AP05 


P0159 


9805 


P015A 


0135 


P015B 


0104 


P015C 


1PF5 


POlFiD 


OOFO 


P015E 


0000 


P015F 


0000 


P0160 


E8FE 


POlfil 


C202 


P0162 


E806 


P0163 


6202 


P0164 


0814 


P0165 


E8F9 


P0166 


6202 


P0167 


1CE1 


PP168 


0000 



THRO IT 



FF08 



THDNXT 



RPMSK 
REQP 
THOX 
THOTHS 



TEMPI 





STA* 

LDA* 

AND* 

STA* 

LDQ 

INQ 

iin 

STQ* 

LDQ- 

INQ 

SQN 

JMP* 

LPA- 

ANO* 

SUB* 

SAM 

SAZ 

JMP* 

NUM 

NUM 

NUM 

LDQ* 

LPA- 

LDQ* 

STA- 

TRQ 

LDQ* 

STA- 

JMP* 

ADC 





TEMPI 

(TEMPI) 

RPMSK 

REQP 

XL0G2 

CORELU-2 



THDX 

PT.Q 



1 

THDTHS 

(ZERO),0 

RPMSK 

REQP 

THDTHS-* 

THDTHS -* 

THDNXT 

$F0 





THDX 

PT,Q 

TEMPI 

PT.Q 

A 

THDX 

PT.Q 

(THRDIT) 





THREAD REQUEST IN A TO CORE LU 



CHECK FOR END OF THREAD 



SEARCH FOR LOWER RP 



-1 THREAD ENTRY IF NEGATIVE 
-1 THREAD ENTRY IF EQUAL RP 
GET NEXT ENTRY 



POINTER TO PREVIOUS ENTRY 

POINTER TO ENTRY TO ADD 

POINTER TO NEXT ENTRY 

POINTER TO PREVIOUS ENTRY 



DCORE 


412 


DCORE 


413 


DCORE 


414 


DCORE 


415 


DCORE 
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DCORE 


417 


DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 


431 


DCORE 
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DCORE 


433 


DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 
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DCORE 


439 


DCORE 
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DCORE 
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DCORE 
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ACOMPR 


00B6 


ABSOLUTE 


2/54 


4/32 • 








APISP 


OOEA 


ABSOLUTE 


?/52 Q 


5/33 


7/44 


8/21 


9/17 


AFNR 


00B5 


ABSOLUTE 


2/57 


3/?5 








A.1PJSP 


0007 




7/44 L 


7/45 








ANABS 


OOBF 


ABSOLUTE 


2/58 


3/38 








ARE AC 


01 OB 


♦EXTERNAL* 


2/44 X 


8/43 








ASWAPO 


0041 




3/35 


3/39 


4/17 


4/34 L 




AVOLA 


OOBB 


ABSOLUTE 


2/60 Q 


9/32 








AVOLR 


OORA 


ABSOLUTE 


3/03 Q 


9/56 








BOTTOM 


0001 




3/22 L 


3/47 


3/53 


4/54 




CORELU 


0001 


ABSOLUTE 


3/08 Q 


5/27 


9/18 


10/10 




C0R1 


0003 




3/25 L 


3/57 


4/33 


5/31 




DIRCAL 


004? 




4/24 


4/36 L 








0IR1 


004A 




4/36 


4/41 


4/44 L 






ECORE 


0123 




2/31 E 


9/13 Q 








ELU 


0005 


ABSOLUTE 


3/09 Q 


5/32 








ERROR 


011B 




8/44 


8/50 


8/54 


8/58 L 




GTHDIT 


0069 




.4/59 


5/26 Q 








H1C0RE 


00F6 


ABSOLUTE 


3/05 Q 


5/48 


6/31 


6/45 


7/54 


I 


OOFF 


-SYSTEM- 


3/23 


4/31 


5/11 


6/53 




ICORE 


0002 




2/30 E 


3/23 L 


4/46 


9/20 




IPLER 


00C6 


*EXTERNAL* 


2/51 X 


7/20 








JNOGOT 


0032 




4/11 


4/16 


4/19 L 






K65T12 


OOF 9 


♦EXTERNAL* 


?/48 X 


8/26 








LEND 


OOBD 




2/32 E 


6/33 


7/12 L 


7/50 


8/48 


LENGTH 


0OB5 




5/51 


5/60 L 


6/42 


6/46 


6/54 


LOTH 


0003 




7/31 


7/40 L 








LOCORE 


OOF 7 


ABSOLUTE 


3/05 


5/49 


5/52 


6/34 


7/49 


LOG? 


0058 


♦EXTERNAL* 


2/44 X 


5/04 








LOOP 


00C3 




?/35 E 


6/15 


7/18 L 


7/21 


7/46 


LOOPEN 


00C1 




6/21 


7/16 L 








LOOPFG 


OPCO 




6/16 


6/18 


7/17 


7/23 L 




L00P1 


OOCR 




6/14 


7/22 L 








LPMSK 


000? 


ABSOLUTE 


2/56 Q 


3/30 


3/42 


4/04 


5/13 


Lll 


0005 


ABSOLUTE 


2/52 Q 


9/15 


9/19 






LVLSTR 


009E 


♦EXTERNAL^ 


2/44 X 


6/36 








NOGOT 


0059 




4/19 


5/10 L 








N0G1 


0067 




5/15 


5/20 


5/24 L 


5/41 


5/45 


NOG? 


0072 




5/23 


5/39 L 








NOG?0 


009P 




5/57 


6/31 L 








N0G21 


OOAA 




6/47 L 


6/51 








NOG?? 


OOAF 




6/50 


6/52 L 








NOG 30 


OOCA 




6/59 


7/30 L 








N0G30A 


OOCF 




2/38 E 


7/36 L 








N0G32 


00E3 




7/56 L 


7/60 








N0G33 


0008 




7/37 


7/45 L 








N0G35 


00E8 




7/59 


8/04 L 








N0G4 


0075 




5/40 


5/42 L 








N0G5 


0079 




5/43 


5/48 L 








N0G6 


009D 




6/36 L 


6/37 


7/48 






NOTMOT 


OOOE 




3/32 


3/36 Q 








NOTOK 


0017 




3/44 


3/46 L 








NZERO 


001? 


ABSOLUTE 


2/56 


4/23 


4/29 


4/40 


8/33 


OKO 


0016 




3/40 


3/45 L 








OKI 


0023 




3/45 


3/59 L 








ONE 


0034 




4/12 


4/22 L 








ONFBIT 


0P?3 


ABSOLUTE 


3/14 Q 


4/?0 


8/24 







7/30 



7/55 



6/08 
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OUTPUT 


0081 




2/37 E 


5/56 L 








0UTPV4 


7FFF 


♦EXTERNAL* 


2/49 X 










PCORE 


OOBB 


♦EXTERNAL* 


2/43 X 


7/10 








PRTCDR 


013E 


*EXTERNAL* 


2/50 X 


9/48 








PT 


0002 


ABSOLUTE 


3/10 Q 


3/50 


3/56 


4/56 


10/13 


PTNALC 


7FFF 


♦EXTERNAL* 


2/46 X 










PTNREL 


7FFF 


♦EXTERNAL* 


2/47 X 










RDPTV4 


7FFF 


♦EXTERNAL^ 


2/49 X 










REI. 


011E 




2/39 E 


8/60 L 








REI.EAS 


0121 




9/04 


9/11 L 








REI.1 


0123 




7/06 


8/06 


9/12 L 


9/13 


9/52 


REL2 


0128 




9/16 


9/18 L 








REQALC 


0028 


♦EXTERNAL* 


2/44 X 


4/06 








RE()P 


01 5E 




10/08 


10/19 


10/24 L 






RECJXT 


0PB9 


ABSOLUTE 


3/13 Q 


9/05 








RPMSK 


0150 




10/07 


10/18 


10/23 L 






RTNCOR 


0122 


♦EXTERNAL* 


2/43 X 


6/44 


9/11 






Rl 


00F5 




8/20 


8/?3 L 








R1A 


OOEF 




8/14 


8/17 L 








Rll 


OOFA 




8/25 


8/27 L 








R2 


0104 




8/31 


8/37 L 








R29 


0108 




8/28 


8/36 


8/41 L 






R41 


011P 




8/57 


8/59 L 








R5 


0120 




9/21 Q 










R6 


0120 




9/05 L 


9/21 








SCH 


0141 




2/40 E 


9/49 


9/51 L 






SCMA 


0140 




9/47 


9/50 L 








SCHERR 


one 


♦EXTERNAL* 


2/45 X 


8/58 








SPACE 1 


00B9 




6/56 


7/05 L 








SPACE4 


00B5 




2/37 E 


4/34 


6/58 L 






SPASW 


OOCO 


♦EXTERNAL* 


2/44 X 


7/15 








SPCEV4 


7FFF 


♦EXTERNAL* 


2/49 X 










START 


0086 




5/54 


6/04 L 


7/32 






STLPV4 


008B 




2/35 E 


6/07 


6/11 L 


6/23 




STRT 


0004 




7/33 


7/41 L 








SWAPAR 


00D6 


♦EXTERNAL* 


2/43 X 


6/06 


7/43 






SWAPCK 


01 2C 




9/29 E 


9/30 L 


9/34 


9/55 


9/58 


SWAPON 


OOBC 




2/34 E 


5/21 


6/22 


7/11 L 


8/05 


SWCKEX 


0143 




9/38 


9/41 


9/43 


9/53 L 




TEMP 


0071 




3/37 


3/46 


4/22 


4/38 


5/24 








3/41 


3/59 


4/26 


5/12 


5/29 


TEMPL 


OOBE 




6/38 


7/13 B 


7/47 






TEMPI 


0168 




10/05 


10/06 


10/28 


10/34 L 




THPNXT 


015? 




10/12 L 


10/?2 








THPTHS 


0160 




10/16 


10/70 


10/21 


10/26 L 




THPX 


015F 




10/12 


10/25 L 


10/26 


10/31 




THRPIT 


0)49 




5/25 


10/04 L 


10/33 






TIME 


0004 


ABSOLUTE 


3/06 


5/39 


7/53 






TRV 


0005 




3/27 L 










TURNON 


0096 




6/17 


6/22 I 








Tl? 


OOEB 




2/30 E 


8/13 L 








UNPIO 


OOBF 


♦EXTERNAL* 


2/44 X 


7/14 








WAIT 


0000 




3/21 L 


3/52 


4/50 


4/57 




WAIT? 


004P 




3/26 


4/50 L 


4/60 






WAIT3 


0053 




4/52 


4/56 L 








XCORE 


OOBB 




4/28 


4/45 


5/10 


6/52 


7/10 


XLP02 


0058 




5/04 L 


5/28 


10/09 







10/27 



10/29 



10/32 



5/34 L 



7/51 



9/12 
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CLASS - VER 3.0 08/21/80 00.20.31. PACE 1 



AOPRESS 

0000 
OOAE 



LENGTH 
OOAE 



BINARY CONTROL CARDS. 

NAM ALCORE DECK-ID M17 MSOS 5.0 
END 



SUMMARY 



BLOCKS TYPE ADDRESS LENGTH 



ALCORE 


PROGRAM* 


0000 


OOAE 


LS1PRI 


LOCAL 


0077 


0069 


LS3PRI 


LOCAL 


0079 


0069 



ENTRY POINT NAMES AND ADDRESSES. 

ALCORE — 0000 REQALC — 0000 



RTNCOR — 007C 



EXTERNAL SYMBOLS. 

CALTHD LEND 



LVLSTR 
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ENT ALCORE 
EQU ALCORE(*) 
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POOO P 
007C P 

0002 
0022 
0002 
0011 



ENT REQALC.RTNCOR 

EXT LVLSTR.LEND.CALTHD 
EQU LPMSK($2),ZER0($22) 

MINSIZ EQU MINSIZ(2) 

MAXNO EQU MAXN0(LPMSK+15) 
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THIS MODULE FINDS AN AVAILABLE AREA IN 
THE SPACE ALLOCATED TO IT AND ASSIGNS 
PART OF IT PER A SPACE REQUEST. 

THE CORE ALLOCATOR IS ENTERRED FROM THE 
CORE ALLOCATOR DRIVER AND FROM THE 
RELEASE REQUEST PROCESSOR. 

ON ENTRY TO ALLOCATE CORE, A AND Q MUST 
BE AS FOLLOWS. 

A= REQUESTED LENGTH. 

Q=PRIORITY LEVEL OF THE REQUEST. 

AN ENTRY TO RETURN CORE PREVIOUSLY 
ALLOCATED MUST HAVE THE ORIGIN OF THE 
BLOCK BEING RETURNED IN Q. 

ENTRIES TO OBTAIN SPACE ARE MADE 

THROUGH REQALC. 
ENTRIES TO RETURN CORE ARE MADE 

THROUGH RTNCOR. 

IF AN ALLOCATION CAN NEVER BE MADE, THEN 

A RETURN TO CALLER IS MADE WITH Q=0 
IF NO SPACE IS AVAILABLE NOW, THEN A 

RETURN TO CALLER IS MADE WITH Q=-l 
IF THE ALLOCATION IS SUCCESSFUL, THEN 

A RETURN TO CALLER IS MADE WITH THE 

ORIGIN OF THE AREA IN Q. 
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PPPOO 


0000 


Rl 


EQALC 000 




P0001 


482F 




STQ* REQLVL 


REQUEST LEVEL 


POO 02 


0902 




INA MINSIZ 




P0003 


682C 




STA* RFQLTH 


LENGTH=(A)+MINSIZ 


PP004 


C600 


7FFF X 


Lf)A+ LVLSTR.Q 
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28 
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7FFF X 



P00P6 


6828 


P0007 


8P28 


P0008 


9400 


POOOA 


09FD 


POOOB 


0132 


POOOC 


OCOO 


pooon 


1CF2 



STA* LSTR 
ADD* REQLTH 
SUB+ LEND 
INA -2 
SAM CA2 
ENQ 
JMP* (REQALC) 



CLASS - VER 3.0 08/21/80 



LEVEL START 

IF LSTR+REQLTH .GE. LEND 



IF LSTR + REQLTH .GT. 
ERROR CODE, Q=0 



LEND 



LOOK THROUGH THE AVAILABLE AREA FOR THE 
SMALLEST USEABLE PIECE. 



POOOE 


con 


POOOF 


6P22 


P0010 


E000 


P0012 


4821 


P0013 


E201 


POOH 


ODOO 


P0015 


0151 


P0016 


181E 


P001 7 


40FF 


POO) 8 


C4FF 


P0019 


9816 


P001A 


0121 


P001B 


1811 


P001C 


0814 


P001D 


9811 


P001E 


0131 


P001F 


1805 



7FFF X 



CA2 LDA- MAXNO 
STA* MINPCE 
LDQ =XCALTHD 

RC0RE1 STQ* LTHD 



2**15-1 



IF THREAD = FFFF, GO TO CEOT 



LDQ- 1,Q 
1NQ 
SQN 1 
JMP* CEOT 
STQ- I 
LDA- (I) 
SUB* REQLTH 
SAP 1 
JMP* CNXT 
TRQ A 

SUB* LSTR 
SAM 1 
JMP* CSIZCK 



IF PIECE TOO SMALL 



GO GET NEXT PIECE 

IF THE START OF THE 
PIECE ABOVE LEVEL START 
GO CHECK SIZE 

OTHERWISE, PIECE STARS 
BELOW START FOR THIS 
LEVEL. 

IF START OF PIECE, SI, 
PLUS ITS LENGTH IS 
.GE. THE REQUEST LEVEL 
PLUS LENGTH, GO CHECK S1Z 



P0020 


84FF 




ADD- 


(I) 




P0021 


980E 




SUB* 


REQLTH 




P0022 


0121 




SAP 


1 




P0023 


1809 




JMP* 


CNXT 


CANT USE PIECE 


P0024 


C4FF 


CSIZCK 


LDA- 


(I) 


IF THIS PIECE LARGER THAN 


P0025 


980C 




SUB* 


MINPCE 


LAST PIECE, CHECK NEXT 


P0026 


0131 




SAM 


1 




P0027 


1805 




JMP* 


CNXT 




P0028 


C4FF 




LDA- 


(I) 




P0029 


6808 




STA* 


MINPCE 


SAVE LNGTH AND LOC. 


P002A 


C809 




LDA* 


LTHD 




P002B 


6P07 




STA* 


LMINTD 


THREAD LOC. FOR SMALLEST 


P002C 


EOFF 


CNXT 


LDQ- 


I 


GET THE NEXT PIECE 


P002D 


1PE4 




JMP* 


RC0RE1 


REPEAT SEARCH OF THREAD. 


P002E 


0000 


LSTR 


NUM 






P002F 


0000 


REQLTH 


NUM 







P0030 


0000 


REQLVL 


NUM 
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P0031 


0000 


MINPCE 


: NUM 


P0032 


0000 


LMINTD NUM 


P0033 


0000 


LTHD 

* 


NUM 


P0034 


con 


CEOT 


LDA- MAXNO 


PO035 


98FB 




SUB* MINPCE 


PO036 


0101 




SAZ 1 


P0037 


0122 




SAP CA4Pl-*-l 


P0038 


OCFE 




ENQ -1 


P0039 


1CC6 


* 

ic 


JMP* (REQALC) 


pon3A 


EPF7 


* 

CA4P1 


LDQ* LMINTD 


P003B 


C201 




LDA- 1,0 


P003C 


483A 




STQ* SI 


P003D 


6P3B 




STA* S2 


P003E 


CC3A 




LDA* (S2) 


P003F 


683C 




STA* CN 


P0040 


E838 




LDQ* S2 


P0I141 


C201 




LDA- 1,Q 


P0042 


6838 


* 


STA* S3 


P0043 


C8EA 




LDA* LSTR 


P0044 


9834 




SUB* S2 


P0045 


0103 




SAZ ACA5-*-l 


P0046 


0132 


* 


SAM ACA5-*-l 


P0047 


09FC 




INA -MINSIZ-1 


P0048 


0121 




SAP 1 


P0049 


1810 


ACA5 


JMP* CA5 


P004A 


0903 




INA MINSIZ+1 


PP04B 


682C 




STA* LS1PRIME 


P004C 


E82C 




LDQ* S2 


P004P 


4829 




STQ* SI 


P004E 


40FF 




STQ- I 


P004F 


E8DE 




LDQ* LSTR 


P0050 


4828 




STQ* S2 


P0051 


C101 




LDA- 1,1 


PP05? 


6201 




STA- 1,Q 


P0053 


4101 




STQ- 1,1 


P0054 


CC22 




LDA* (SI) 


P0055 


9822 




SUB* LS1PRIME 


P0056 


6C22 




STA* (S2) 


P0057 


C820 




LDA* LS1PRIME 


P005P 


6C1E 


* 


STA* (SI) 








IF THERE 


P0059 


CC1F 


CA5 


LDA* (S2) 


P005A 


98D4 




SUB* REQLTH 


P005B 


0111 




SAN 1 


P0P5C 


1811 




JMP* CA6 


P005D 


09FC 




INA -MINSIZ-1 


P005E 


0121 




SAP 1 


P005F 


180E 




JMP* CA6 


PODfin 


0903 




INA MINSIZ+1 



END OF THREAD. 

IF NO PIECE FOUND, THEN 



ERROR CODE RETURNED IN Q 



A PIECE WAS FOUND 



51 POINTS TO S2 

START OF SEGMENTS=S1=S2 
CHOSEN PIECE LENGTH = CN 

52 POINTS TO S3 



IF NO LOWER PIECE 



A LOWER PIECE EXISTS. 
IF LOWER PIECE LESS THAN 
MINIMUM SIZE PLUS 1 



IS 



S1,I=S2 



POINTER TO S3 

PUT INTO S2 

POINTER TO S2 PUT IN SI 

LTH S2=LS1PRIME-0RIG LTH 



THREAD NOW IS ...S1,S2,S3 
NO UPPER PIECE, THEN GO TO CA6 



GO TO CA6 
IF UPPER PIECE SMALLER 
THAN MIN SIZE, GO TO CA6 
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PPP61 


6P1P 




STA* 


LS3PRIME 


LEFTOVER CALLED S3PRIME 


P0062 


EP16 




LPQ* 


S2 




P0063 


40FF 




STQ- 


I 


I POINTS TO S2 


P00fi4 


CPCA 




LDA* 


REOLTH 




POOP 5 


6C13 




STA* 


(S2) 




P0066 


F8C8 




ADO* 


REQLTH 




P00fi7 


C812 




LDA* 


LS3PRIME 


LENTH S3PR1ME TO S3PRIME 


P006P 


6622 




STA- 


(ZERO),Q 




P0069 


C101 




LDA- 


1,1 


POINTER TO NEW S3 INTO S2 


P006A 


6201 




STA- 


l.Q 


PTR TO OLD S3 TO S3PRIME 


P006B 


4101 




STQ- 


1,1 




P006C 


4P0E 


* 


STQ* 


S3 


S3PRIME IS NEW S3 






* 




REMOVE SEGMENT 


S2 FROM THREAD SI, S2, S3. 


POOfiD 


E809 


CA6 


LDQ* 


SI 


THREAD SI TO S3 


P006E 


C80C 


1c 


LDA* 


S3 




P006F 


6201 




STA- 


1,0 




P0070 


E808 




LDQ* 


S2 


RETURN TO CALLER WITH 


P0071 


0814 




TRQ 


A 


Q=FIRST USABLE ADDRESS 


P0072 


0902 




INA 


MINSIZ 








* 


STORE LOCATION OF AREA BEFORE THE AREA 


P0073 


6201 




STA- 


1,0 




P0074 


OP22 




TRA 







P0075 


1CPA 


* 

* 


JMP* 


(REQALC) 
DATA STORAGE 




P0076 


0000 


SI 


NUM 






P0077 


0001 




BSS 


LSlPRIME(l) 




P0078 


0000 


S2 


NUM 






P0079 


0001 




BSS 


LS3PRIME(1) 




P007A 


0000 


S3 


NUM 






P007B 


0000 


CN 
* 


NUM 





LENGTH OF CORE ALLOCATOR 1 






* 
* 




CORE ALLOCATOR 


- RETURN CORE LOGIC 


P007C 


0000 


RTNCOR 










P007D 


4P30 




STQ* 


RS2 


RETURNED PIECE CALLED RS2 


P007E 


EOOO 0011 X 




LDq 


=XCALTHD 




P0080 


482C 


RCA1 


STQ* 


RTHD 


REFERENCE TO NEXT ENTRY 


P0081 


C201 




LDA- 


1,0 


ADDRESS OF ENTRY 


P0082 


OBOO 




NOP 







P00P3 


0900 




INA 







P0084 


0111 




SAN 


1 




P0085 


1P06 




JMP* 


RCE0T1 


END OF THREAD 


P00P6 


60FF 




STA- 


I 




P00P7 


9P26 


* 


SUB* 


RS2 


IF ENTRY ABOVE RS2, 

GO TO RCE0T1 


POOPP 


012? 




SAP 


RCEOTl-*-l 




POOPQ 


EOPF 




LDO- 


I 


GET NEXT PIECE 


POOPA 


1PF5 




JMP* 


RCA1 




POOPB 


40FF 


RCE0T1 


STO- 


I 


REF TO ENTRY WHERE NEW 



PIECE WILL BE PUT IN I 
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P008C 


C101 




LDA- 


1,1 


CHECK IF RETURNED PIECE ALREADY 


46* 


750 


ALCORE 


227 


P008D 


0872 




EAQ 


Q 


RELEASED 


46* 


750 


ALCORE 


228 


P008E 


0151 




SQN 


RCA 


SKIP IF NOT 


46* 


750 


ALCORE 


229 


P008F 


181C 




JMP* 


RCAD 




46* 


750 


ALCORE 


230 


pongo 


E810 


RCA 


LDQ* 


RS2 


THREAD NEW PIECE 


46* 


750 


ALCORE 


231 


P0091 


C101 




LDA- 


1,1 


THREAD NEW PIECE IN 






ALCORE 


232 


P0092 


6201 


* 


STA- 


l,Q 


LOC. OF NEXT PIECE INTO 
NEW PIECE. 






ALCORE 
ALCORE 


233 
234 


P0093 


4101 


+ 

* 
* 
* 


STQ- 


1,1 


LOC. OF NEW PIECE 
INTO REFERENCE 

IF LOWER PIECE TOUCHES 
NEW PIECE 






ALCORE 
ALCORE 
ALCORE 
ALCORE 
ALCORE 


235 
236 
237 
238 
239 


P0094 


COFF 




LPA- 


I 








ALCORE 


240 


pongs 


P4FF 




AOP- 


(0 








ALCORE 


241 


P0096 


9817 




SUB* 


RS2 








ALCORE 


242 


pon°7 


0117 




SAN 


RCAC-*-l 








ALCORE 


243 


P009P 


CC15 




LDA* 


(RS2) 
(I) 


COMBINE PIECES 






ALCORE 


244 


P0099 


84FF 




ADP- 








ALCORE 


245 


P009A 


64FF 




STA- 


(I) 








ALCORE 


246 


P009B 


C201 




LDA- 


l.Q 


REF TO NEXT PIECE GOES TO 






ALCORE 


247 


P009C 


6101 




STA- 


1,1 


COMBINED PIECE FRONT. 






ALCORE 


248 


P0090 


COFF 




LDA- 


I 


CALL NEW PIECE RS2 






ALCORE 


249 


PP09E 


680F 




STA* 


RS2 








ALCORE 


250 


P009F 


E80E 


RCAC 


LDQ* 


RS2 


IF RS2 TOUCHES NEXT PIECE 






ALCORE 


251 


POOAO 


0814 




TRQ 


A 








ALCORE 


252 


P00A1 


8C0C 




ADD* 


(RS2) 








ALCORE 


253 


PO0A2 


9201 




SUB- 


l.Q 








ALCORE 


254 


P00A3 


0117 


* 


SAN 


RCAD-*-l 








ALCORE 
ALCORE 


255 
256 


P00A4 


C201 




LDA- 


1,Q 


COMBINE PIECES 






ALCORE 


257 


P00A5 


60FF 




STA- 


I 








ALCORE 


258 


P00A6 


C4FF 




LDA- 


(RS2) 








ALCORE 


259 


P00A7 


8C06 




ADD* 








ALCORE 


260 


P00A8 


6C05 




STA* 


(RS2) 








ALCORE 


261 


P00A9 


C101 




LDA- 


1,1 








ALCORE 


262 


POOAA 


6201 




STA- 


l.Q 








ALCORE 


263 


POOAB 


1CP0 


RCAD 


JMP* 


(RTNCOR) 








ALCORE 


264 


POOAC 


0000 


RTMD 


NUM 





REFERENCE TO THREAD 






ALCORE 


265 


POPAD 


0000 


RS2 


NUM 










ALCORE 


266 


POOAE 






END 
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ACAfi 


0049 




4/28 


4/29 


4/33 L 








ALCORE 


0000 




2/10 E 


2/11 










CALTHD 


007F 


♦EXTERNAL* 


2/16 X 


3/16 


5/45 








CA2 


OOOE- 




3/07 


3/14 L 










CA4P1 


003A 




4/10 


4/16 L 




- 






CAS 


0059 




4/33 


4/52 L 










CAfi 


006P 




4/55 


4/58 


5/18 L 








CEOT 


0034 




3/24 


4/07 L 










CN 


007B 




4/21 


5/39 L 










CNXT 


002C 




3/29 


3/46 


3/50 


3/55 L 






CSIZCK 


0024 




3/34 


3/47 L 










I 


OOFF 


-SYSTEM- 


3/25 


3/47 


4/38 


5/56 


6/17 


6/25 








3/26 


3/51 


5/05 


5/58 


6/21 


6/34 








3/43 


3/55 


5/52 


6/16 


6/22 


6/35 


LEND 


0009 


*EXTERNAL* 


2/16 X 


3/05 










LMINTD 


0032 




3/54 


4/04 L 


4/16 








LPMSK 


0002 


ABSOLUTE 


2/17 Q 


2/20 










LSTR 


002E 




2/60 


3/32 


3/57 L 


4/26 


4/39 




LS1PRI 


0077 




4/35 


4/45 


4/47 


5/35 B 






LS3PRI 


0079 




4/60 


5/09 


5/37 B 








LTHD 


0033 




3/17 


3/53 


4/05 L 








LVLSTR 


0005 


♦EXTERNAL* 


2/16 X 


2/59 










MAXNO 


0011 


ABSOLUTE 


2/20 


3/14 


4/07 








MINPCE 


0031 




3/15 


3/48 


3/52 


. 3/60 L 


4/08 




MINSIZ 


0002 


ABSOLUTE 


2/19 Q 


2/57 


4/31 


4/34 


4/56 


4/59 


RCA 


0090 




6/05 


6/07 L 










RCAC 


009F 




6/19 


6/27 L 










RCAD 


OOAB 




6/06 


6/31 


6/40 L 








RCA1 


0080 




5/46 L 


5/57 










RCE0T1 


008B 




5/51 


5/55 


5/58 L 








RC0RE1 


0012 




3/17 L 


3/56 










REQALC 


0000 




2/14 E 


2/55 L 


3/09 


4/12 


5/30 




REOLTH 


002F 




2/58 


3/04 


3/27 


3/44 


3/58 L 


4/53 


REOLVL 


0030 




2/56 


3/59 L 










RS2 


OOAD 




5/44 


6/07 


6/20 


6/27 


6/36 


6/42 L 








5/53 


6/18 


6/26 


6/29 


6/37 




RTHD 


OOAC 




5/46 


6/41 L 










RTNCOR 


007C 




2/14 E 


5/43' L 


6/40 








SI 


0076 




4/18 


4/37 


4/44 


4/48 


5/18 


5/34 L 


S2 


0078 




4/19 


4/22 


4/36 


4/46 


5/04 


5/22 








4/20 


4/27 


4/40 


4/52 


5/07 


5/36 L 


S3 


007A 


' 


4/24 


5/14 


5/19 


5/38 L 






ZERO 


0022 


ABSOLUTE 


2/17 Q 


5/10 
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1700 ASSEMBLY OF 


NFNR 






CLASS - VER 3.0 08/21/80 00.20.33. 


PAGE 


2 










NAM 


NFNR DECK-ID M21 MSOS 5.0 


SUMMARY- 11C 


1 NFNR 


2 








* 


MASS 


STORAGE OPERATING SYSTEM VERSION 5.0 




NFNR 


3 








* 


SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 




NFNR 


4 








* 


COPYRIGHT CONTROL DATA CORPORATION 1976 




NFNR 


5 








* 


FIND NEXT REQUEST-NON-BUFFERED 




NFNR 


7 






0000 P 




ENT 


NFNR 




NFNR 


8 






0000 P 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


EQU 


NFNR(*) 

THIS PROGRAM FINDS THE NEXT REQUEST 

FOR A GIVEN PHYSICAL DEVICE. 
IT IS ENTERED FROM ALL DRIVERS AND 

RETURNS AS FOLLOWS 

CALL+1 IMPLIES NO REQUEST FOUND 
CALL+2 IMPLIES A REQUEST IS READY 
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6109 


STA- 


SWITCH, I 






P002C 


E10F 


LDQ- 


RETURN, I 






P002D 
P002E 


1622 


JMP- 
END 


(ZERO).Q 


fta+UYnS \i> tfA&i 


iO t'-i^tl Wn\ 
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REFERENCE MAP. 










BIT14 


0031 


ABSOLUTE 


2/19 


2/56 


2/58 




CORE 


OOOA 


ABSOLUTE 


2/17 Q 


2/40 


2/45 


2/49 


EPTR 


0006 


ABSOLUTE 


2/24 Q 


2/31 






ERRTAB 


0008 


ABSOLUTE 


2/20 Q 


2/57 " 






LABEL1 


OPOP 




2/37 


2/39 L 






LASTP1 


OOOB 


ABSOLUTE 


2/16 Q 


2/39 


2/48 


2/51 


LOWBTS 


0003 


ABSOLUTE 


2/25 


2/34 






HAKEO 


0000 




2/14 E 


2/26 L 


2/28 




MAICO 


OOPO 




2/10 E 


2/11 Q 






NOF.RR 


0028 




2/59 


3/09 L 






NSHORT 


00 IF 




2/38 


2/41 


2/47 


2/50 


RETURN 


OOOF 


ABSOLUTE 


2/15 Q 


2/30 


3/13 




STATUS 


OOOC 


ABSOLUTE 


2/21 Q 


3/06 






SWITCH 


0009 


ABSOLUTE 


2/23 Q 


2/42 


3/10 


3/12 


X1FFF 


OOOF 


ABSOLUTE 


2/22 Q 


3/09 






ZERO 


0022 


ABSOLUTE 


2/18 Q 


2/32 


2/54 


3/14 
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0000 0030 NAM NCMPRQ DECK- ID M20 MSOS 5.0 SUMMARY 

0030 END 

ENTRY POINT NAMES AND ADDRESSES. 

COMPRQ -- 0000 NCMPRQ -- 0000 

EXTERNAL SYMBOLS. 
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0000 P 
0000 P 



0000 P 



0004 
0005 
0006 
0008 
0009 
OOOF 



0002 
0023 
0012 
0022 
00F4 



POOOO 


0000 


P0001 


0500 


P0002 


E8F0 


P0003 


0400 


P0004 


410F 


P0005 


OAFF 


P0006 


6104 


P0007 


El 06 


poooa 


C622 


P0009 


0F49 


POOOA 


A007 


POOOB 


0107 


poonc 


C203 


pooon 


AODF 



WW 





NAM 


NCMPRQ- DECK- ID M20 MSOS 5.0 


SUMMARY-110 NCMPRQ 


2 


* 


MASS 


STORAGE OPERATING SYSTEM VERSION 5.0 


NCMPRQ 


3 


* 


SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 


NCMPRQ 


4 


* 


COPYRIGHT CONTROL DATA CORPORATION 1976 


NCMPRQ 


5 


* 


COMPLETE REQUEST FOR DRIVERC 


NCMPRQ 


7 




ENT 


NCMPRQ 


NCMPRQ 


8 




EQU 


NCMPRQ(*) 


NCMPRQ 


9 




ENT 


COMPRQ 


NCMPRQ 


12 




EXT 


L0G1 


NCMPRQ 


13 


* 






NCMPRQ 


14 


* 




PHYSICAL DEVISE TABLE INDECES. 


NCMPRQ 


15 


* 






NCMPRQ 


16 




EQU 


EDCLK(4) 


NCMPRQ 


17 




EQU 


ELU(5) 


NCMPRQ 


18 




EQU 


EPTR(6) 


NCMPRQ 


19 




EQU 
EQU 


EREQST(8) 
ESTAT1(9) 


NCMPRQ 
NCMPRQ 


20 
21 




EQU 


RETURN(15) 


NCMPRQ 


22 


* 






NCMPRQ 


23 


* 






NCMPRQ 


24 




EQU 


LPMSK(2) 


NCMPRQ 


25 




EQU 


0NEBIT($23) 


NCMPRQ 


26 




EQU 


NZER0($12) 


NCMPRQ 


27 




EQU 


ZER0($22) 


NCMPRQ 


28 




EQU 


AM0NI($F4) 


NCMPRQ 


29 


* 






NCMPRQ 


30 


* 






NCMPRQ 


31 


* 




THIS MODULE SCHEDULES COMPLETION 


NCMPRQ 


32 


* 




ROUTINES AND HOUSEKEEPS FOR DRIVERS. 


NCMPRQ 


33 


* 






NCMPRQ 


34 


* 




ON ENTRY FROM A DRIVER, THE I REGISTER 


NCMPRQ 


35 


* 




MUST CONTAIN THE CORE LOCATION OF THE 


NCMPRQ 


36 


* 




PHYSICAL DEVICE TABLE SLOT OF THE 


NCMPRQ 


37 


* 




SUBJECT EQUIPMENT. 


NCMPRQ 


38 


* 






NCMPRQ 


39 


* 




I IS SAVED AND RETURNED TO THE CALLER AT 


NCMPRQ 


40 


* 




CALL+1 


NCMPRQ 


41 


* . 






NCMPRQ 


42 


* 






NCMPRQ 


43 


COMPRQ 


! 





NCMPRQ 


44 




iin 





NCMPRQ 


45 




LDQ* 


COMPRQ SAVE RETURN. 


NCMPRQ 


46 




EIN 





NCMPRQ 


47 




STQ- 


RETURN, I 


NCMPRQ 


48 




ENA 


-0 SET DIAGNOSTIC 


NCMPRQ 


49 




STA- 


EDCLK.I CLOCK IDLE. 


NCMPRQ 


50 




LDQ- 


EPTR.I 


NCMPRQ 


51 


'k\Y , 


LDA- 


(ZERO).Q DO NOT SET ERROR FIELD IF 


NCMPRQ 


52 




ARS 


9 THE REQUEST MAS A MAS STORAGE 


NCMPRQ 


53 




AND- 


LPMSK+5 DIRECTORY CALL 

cc-*-i fa** Sdo^SJ WU 


**MS0S 4.0 NCMPRQ 


54 




SAZ 


NCMPRQ 


55 




LDA- 


3,Q 


' NCMPRQ 


56 




ANP- 


LPMSK+13 CLEAR ERROR FIELD 


NCMPRQ 


57 






0& V' 0,Ul£1^ VO " » 



Word. ^ 






\fejQ- 



OlflP.w^ttVn/cC-0 



Wr 



„ A . >FFF C-o) 



^ 







n 



o 
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POOOE 


6203 




STA- 


3,Q 


. POOOF 


C109 




LDA- 


ESTAT1,I 


P0010 


A01F 




AND- 


NZERO+13 


pooh 


B203 




EOR- 


3,Q 


P0012 


6203 




STA- 


3,Q 


P0013 


C201 


CC 


LDA- 


1,0 


P0014 


0112 




SAN 


CD-*-l 


P0015 


6202 




STA- 


2,Q 


P0016 


180C 




JMP* 


EE 


P0017 


C6?2 


CO 


LDA- 


(ZERO),Q 


P0018 


A011 




AND- 


LPMSK+15 


P0019 


B032 




EOR- 


ONEBIT+15 


P001A 


6622 




STA- 


(ZERO),Q 


P001B 


0814 




TRQ 


A 


P001C 


E203 




LDQ- 


3.Q 


P001P 


0500 




IIN 





P001E 


6P03 




STA* 


CE 


P001F 


54F4 




RTJ- 


(AMONI) 


P0020 


6000 




VFD 


N1/0.N1/1 


P0021 


0000 


CE 








P0022 


C108 


EE 


LPA- 


EREQST.I 


P0023 


A010 




AND- 


LPMSK+14 


P0024 


6108 




STA- 


EREOST.I 


P0025 


E105 




LDQ- 


ELU.I 


P0026 


C600 7FFF X 




L0A+ 


L0G1.Q 


P002P 


'0FC1 




ALS 


1 


P0029 


0123 




SAP 


HH-*-l 


P002A 


0804 




SET 


A 


P002B 


0500 




-UN 





P002C 


6105 


/ 


STA- 


ELU,I 


P002D 


0400 x 


HH 


EIN 





P002E 


E10F / 




LDQ- 


RETURN, I 


P002F 


1622 




JMP- 


(ZERO),Q 


P0030 






END 






/ 
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STORAGE USED 


/ 


\ 
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IN REQUEST AND 
REPLACE WITH 
SAME FROM PHYSTB 

IF COMP. ADDR. EQUAL ZERO 
CLEAR THREAD AND 

GO TO EE. 

fiJUduHe^ cjy^MjLh-<y,\ -oAAaoaa) 

SET BIT 15 OF WORD ZERO (M ^>^ S ^^ 
QF THE REQUEST 

GET ERROR WORD FROM REQ. 



REQUEST AN INDIRECT 
,N5/16,Nl/0,N8/0 ( ***MS0S4, 

SECONDARY SCHED. CALL(Vv*^V\o<* ***r"). 
IF E IS EQUAL TO 1 

OTHERWISE, 
ZERO THE FIELD VHT^eVVtfV 

TEST L.U. TYPE 






NCMPRQ 


58 


NCMPRQ 


59 


NCMPRQ 


60 


NCMPRQ 


61 


NCMPRQ 


62 


NCMPRQ 


63 


NCMPRQ 


64 


NCMPRQ 


65 


NCMPRQ 


66 


NCMPRQ 


67 


NCMPRQ 


68 


NCMPRQ 


69 


NCMPRQ 


70 


NCMPRQ 


71 


NCMPRQ 


72 


NCMPRQ 


73 


NCMPRQ 


74 


NCMPRQ 


75 


NCMPRQ 


76 


NCMPRQ 


77 


NCMPRQ 


78 


NCMPRQ 


79 


NCMPRQ 


80 


NCMPRQ 


81 


NCMPRQ 


82 


NCMPRQ 


83 


NCMPRQ 


84 


NCMPRQ 


85 


NCMPRQ 


86 


NCMPRQ 


87 


NCMPRQ 


88 


NCMPRQ 
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NCMPRQ 


90 


NCMPRQ 


91 
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AMONI 


00F4 


ABSOLUTE 


2/31 Q 


3/20 








CC 


0013 




2/57 


3/08 L 








CD 


0017 




3/09 


3/12 L 








CE 


0021 




3/19 


3/22 L 








COMPRQ 


0000 




2/14 E 


2/46 L 


2/48 






EOCLK 


0004 


ABSOLUTE 


2/19 


2/52 








EE 


0022 




3/11 


3/23 L 








ELII 


0005 


ABSOLUTE 


2/20 


3/26 


3/32 






EPTR 


0006 


ABSOLUTE 


2/21 Q 


2/53 








EREQST 


0008 


ABSOLUTE 


2/22 


3/23 


3/25 






ESTAT1 


0009 


ABSOLUTE 


2/23 Q 


3/04 








IIH 


002P 




3/29 


3/33 L 








LOfil 


0027 


♦EXTERNAL* 


2/15 X 


3/27 








LPMSK 


0002 


ABSOLUTE 


2/27 


2/56 


2/59 


3/13 


3/24 


NCMPRQ 


0000 




2/10 E 


2/11 Q 








NZERO 


0012 


ABSOLUTE 


2/29 Q 


3/05 








ONEflIT 


0023 


ABSOLUTE 


2/28 Q 


3/14 








RETURN 


OOOF 


ABSOLUTE 


2/24 Q 


2/50 


3/34 






ZERO 


0022 


ABSOLUTE 


2/30 Q 


2/54 


3/12 


3/15 


3/35 



o 



n 



v_ 



O 



C 



PO/12/11. in.i4.nn. 

PROGRAM LTMSOSC 
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ADDRESS LENGTH 



0000 
0173 



0173 



BINARY CONTROL CARDS. 

NAM ADEV DECK- ID M22 MSOS 5.0 
END 



SUMMARY 



BLOCKS 



TYPE 



ADDRESS LENGTH 



ADEV 


PROGRAM* 


0000 


0173 


HASHLD* 


LOCAL 


0071 


0001 


HASRLU 


LOCAL 


0072 


0001 


FLAGX 


LOCAL 


008F 


0001 


HASLU 


LOCAL 


0090 


0001 


HOLDAL 


LOCAL 


0091 


. 0001 


NOLU 


LOCAL 


00E8 


0001 


NOHOLD 


LOCAL 


00F3 


0001 


BUF 


LOCAL 


0104 


0001 



ENTRY POINT NAMES AND ADDRESSES. 



APEV — 0000 
ALTDEV — 0000 



ALTSUB -r 0I5E 
CONVER — 00E9 



DEVERR — 0000 



EXTERNAL SYMBOLS. 

ALTERR 
DUMALT 



JBCNCL 
L0G1 



L0G1A 
L0G2 



RELBYQ 
SWTCH 



SYFAIL 
UNP10 



UNPIOF 



1700 ASSEMBLY OF ADEV 



CLASS - VER 3.0 08/21/80 00.20.38. 



PAGE 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



0000 
0000 

0000 
0000 
00E9 



015E P 



OOOA 

00B5 
OOOE 
0012 
OOEA 
0046 
0033 
00B6 
00F4 
0002 
0023 

0005 
0006 
0009 

0002 



NAM ADEV l DECK- ID M22 MSOS 5.0 
ALTERNATE DEVICE HANDLER 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



ENT ADEV 
EQU ADEV(*) 



ENT DEVERR.ALTDEV 



ENT 
EXT 
EXT 
ENT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EQU 

EQU 
EQU 
EQU 



CONVER 

JBCNCL 
ALTERR 
ALTSUB 
DUMALT 
L0G1,L0G1A,L0G2 
RELBYQ 
SWTCH 

UNPIO.UNPIOF 
SYFAIL 
NN(10) 



HEX TO ASCII CONVERSION ROUTINE 

TABLE USED TO SAVE ERROR WORDS 
ALTERNATE LOGICAL UNIT SUB. 
DUMMY ALTERNATE LU NO. 



UNPROTECTED I/O FLAFS 
SITE FAIL LOCATED IN SYSDAT ($18FF) 
MAX NO OF ALTERNATES IN A SING 
COMMUNICATION REGION ADRS 



FNR($B5) 

LEVEL(14) 

NZER0($12),DISP($EA) 



SUMMARY-132 ADEV132 


1 


ADEV 


3 


ADEV 


4 


ADEV 


5 


ADEV 


6 


ADEV 


8 


ADEV 


9 


ADEV 


11 


ADEV 


12 


ADEV 


13 


ADEV 


14 


ADEV 


15 


ADEV 


16 


**MSOS 4.1** ADEV 


17 


**MSOS 4.1** ADEV 


18 


ADEV 


19 


**MSOS 4.0 ADEV 


20 


) ADEV 


21 


HAIN ADEV 


22 


ADEV 


23 


ADEV 


24 


ADEV 


25 


ADEV 


26 



EQU TEN($46),ZR0BIT($33),C0MP($B6) 



EQU AM0NI($F4),LPMSK(2),0NEBIT($23) 



PHYSICAL DEV TABLE WORDS 
EQU ELU(5),EPTR(6),ESTAT1(9) 



* CALL PARAMETER WORDS 
EQU PT(2) 

* THIS MODULE IS ENTERRED FROM A DRIVER WHEN A 

* DEVICE HAS FAILED. IT ATTEMPTS TO SWITCH TO AN 

* ALTERNATE IF POSSIBLE. FAILING THAT, IT REQUESTS 

* OPERATOR ACTION. IT IS ENTERRED VIA A JUMP WITH 

* Q SET AS FOLLOWS 

* BITS 0-5 ERROR CODE 

* BITS 6-15 LOGICAL UNIT NUMBER 
**************************************************************** 

* 

* THE ABOVE DOES NOT APPLY IF Q IS MINUS. CERTAIN DRIVERS HAVE 

* EXCEEDED THE ERROR CODE FIELD IN Q, SO THESE DRIVERS NOW PASS IN 

* Q THE LOGICAL UNIT IN THE UPPER 8 BITS AND THE ERROR CODE IN 

* THE LOWER 8 BITS. BIT 15 IS SET AS A FLAG. 
* 

**************************************************************** 



ADEV 



ADEV 



27 



28 



ADEV 


29 


ADEV 


30 


ADEV 


31 


ADEV 


32 


ADEV 


33 


ADEV 


34 


ADEV 


35 


ADEV 


36 


ADEV 


37 


ADEV 


39 


ADEV 


40 


ADEV 


41 


ADEV 


42 


ADEV 


43 


ADEV 


44 


ADEV 


45 


ADEV 


46 


ADEV 


47 


ADEV 


48 
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POOOO 


54F4 


poom 


520E 


P0002 


0004 P 


P0003 


14EA 



ALTOEV RTJ- (AMONI) SCHEDULER REQUEST 

VFD N1/0,N1/1,N5/9,N1/0,N4/0,X4/LEVEL 
AOC ALTCO 
JMP- (OISP) 



AOEV 
***MS0S4.0 AOEV 
***MSOS4.0 AOEV 

AOFV 



50 
51 
52 
53 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



THE ERROR CODE AND LU ARE IN ONE OF TWO FORMATS, SO THE FOLLOWING ADEV 
CODE ARRANGES THE Q REGISTER TO HAVE THE LU IN THE UPPER 8 BITS ADEV 
AND THE ERROR CODE IN THE LOWER 8 BITS. ADEV 



P0004 


0163 


P0005 


0814 


P0006 


B032 


P0007 


1R06 


P0008 


0A3F 


P0009 


08B4 


POOOA 


0F26 


POOOB 


0FA8 


POOOC 


0874 


POOOD 


685F 


POOOE 


0F48 


POOOF 


0111 


P0010 


14EA 


pooh 


EP5E 


POO 12 


CE5C 


P0013 


0102 


POOM 


5400 7FFF X 


P0016 


40FF 


P0017 


E855 


P001P 


0F28 


P0019 


4859 


P001A 


5C53 


P001B 


485fi 


P001C 


C850 


P001D 


0FC8 


pnoiE 


0F6P 


P001F 


684D 


P0020 


E851 


P0021 


CE52 


P0022 


6838 


P0023 


AOOO 9FFF 


P0025 


BOOO 6000 


P0027 


6E4C 


P0028 


5C45 


P0029 


0156 


P002A 


E847' 


P002B 


C82F 


P002C 


6E47 


P002D 


CE65 


P002E 


60FF 



ALTGO 



ALTO 



ALT1 



ALT2 



SOP ALTO 
TRQ A 

EOR- ONEBIT+15 
JMP* ALT1 



ALT5 



ENA 
LAQ 
QRS 
QLS 
EAQ 



$3F 

A 

6 

8 

A 



STA* SAVERR 
ARS 8 
SAN ALT2 
JMP- (DISP) 
LOO* Q1SAV 
LDA* (ATAB),Q 
SAZ ALT5-*-l 



RTJ+ SYFAIL 



STQ- I 
LDQ* SAVERR 
QRS 8 
STQ* HASRLU 
RTJ* (XALTSB) 
STQ* HASHLD 
LDA* SAVERR 
ALS 8 
LRS 8 
STA* SAVERR 
LDQ* HASHLD 

LDA* (ALOGl).Q 
STA* HAS7 • 
AND =N$9FFF 
EOR =N$6000 
STA* (ALOGl).Q 
RTJ* (XALTSB) 
SON HAS4-*-l 
LDQ* HASHLD 
LDA* HAS7 
STA* (ALOGl).Q 
LDA* (ALOGIA).Q 
STA- I 



STRIP FLAG 



SEQ FOR LU AND ERROR CODE IN Q 



SAVE LOGICAL UNIT AND ERROR CODE 



CHECK FOR LU 00 



CHECK FOR SPACE IN ERROR WORD TABLE 



IRRECOVERABLE ERROR - HANG • 
INCREASE SIZE OF TABLE ALTERR 



I = Q1SAV 

IF LU SPECIFIED IS ALREADY DOWN 

THEN GET LU OF ALTERNATE THAT FAILED 

Q = LU THAT FAILED, A = ERROR WORD 

CHANGE LU NO IN ERROR WORD 
SAVE ERROR WORD 

MARK THIS LU DOWN 

MARK LU DOWN AND SET TO TYPE 1 

IF LU = Q IS DOWN, SET Q = ALTERNATE LU 

FAILED LU 

RESTORE LU L0G1 STATUS 



ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 

ADEV 
ADEV 

ADEV 
ADEV 
ADEV 
ADEV 
ADEV 



ADEV 
ADEV 



ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 

ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 
ADEV 



55 

56 

57 

50 

59 

60 

61 

62 

63- 

64 

65 

66 

67 

68 

69 
70 

71 
72 
73 
74 
75 



77 
78 



80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 

92 
93 
94 
95 
96 

97 
98 

99 
100 
101 
102 
103 
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P002F 1P2C 
P0030 4860 



HAS4 



JMP* 
STQ* 



SCMNC 
HASLU 



NO ALTERNATE ASSIGNED 
SAVE ALTERNATE LU 
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P0031 


E840 


P0032 


EE60 


P0033 


C206 


P0034 


60FF 


P0035 


E83D 


PP036 


0500 


PP037 


CE5C 


P0038 


6102 


P0039 


COFF 


PPP3A 


6E59 


P003B 


0400 


P003C 


EP35 


P003P 


CE55 


P003E 


60FF 


P003F 


0P44 


P0040 


6105 


P0041 


E84F 


P0042 


CE31 


P0043 


A041 


P0044 


B031 


P0045 


6E2E 


P0046 


EC28 


P0047 


C825 


P0048 


9E26 


P004Q 


0103 


P004A 


ODFE 


P0P4B 


0142 


P004C 


18FA 


P0P40 


6P1F 


P004E 


E842 


P004F 


EE43 


PPP5P 


05P0 


P0P51 


C2P5 


PP052 


0101 


PPP53 


1P0P 


P0054 


0814 


PP055 


6805 


P0056 


CP1C 


PPP57 


6205 


PPP58 


54F4 



HAS3 



HAS3A 



HAS3B 



HAS6 



HASLU NOW CONTAINS THE LU OF THE ALTERNATE 
HASRLU CONTAINS THE ORIGINAL REQUESTED LU 
AND HASIILD CONTAINS THE LU THAT FAILED 



LDQ* 
LDQ< 



LDQ 
UN 
LDA 
STA 
LDA 
STA 



HASHLD 

(ALOGIA).Q 
LDA- EPTR.Q 
STA- I 

HASRLU 



(AL0G2),0 

PT.I 

I 

(AL0G?),Q 



EIN 
LDQ* HASHLD 
LDA* (AL0G1A),Q 
STA- I 
CLR A 
STA- ELU.I 



LDQ* HASLU 
LDA* (ALOGl).Q 
AND- ZROBIT+14 
EOR- ONEBIT+14 
STA* (ALOGl).Q 



LDQ* 

LDA* 

SUB* 

SAZ 

INQ 

SQZ 

JMP* 

STA* 

LDQ* 

LDQ* 

UN 

LDA- 

SAZ 



(ATAB) 

SAVERR 

(ATAB),Q 

HAS3A-*-l 

-1 

HAS3B-*-! 

HAS3 

SAVERR 

HASLU 

(AL0G1A),Q 



ELU.Q 

HAS6-*-l 



JMP* SCHNC 
TRQ A 

STA* HAS7 
LOA* HASRLU 
STA- ELU.Q 
RTJ- (AMONI) 



LOCATION OF CURRENT REQUEST 
REQUESTED LU 
RETHREAD THE REQUEST 



LU THAT FAILED 

I = PDT ADR OF FAILED DEV. 

CLEAR FAILED DEVICE TABLE 

SET ALTERNATE TO TYPE 1 

SEARCH TABLE FOR THIS ERROR 

SKIP IF END OF SEARCH 

SET SAVERR = IF ERROR IS ALREADY IN TABLE 

LU OF ALTERNATE 



IF THE ALT DEV IS MOT BUSY 

SCHEDULE THE DRIVER, 
GO TO SCHDL LVL 4 SECTION 



SET DEVICE BUSY 



**MSOS 4.1** ADEV 


104 


ADEV 


105 


ADEV 


107 


ADEV 


108 


ADEV 


109 


ADEV 


111 


ADEV 


112 


ADEV 


113 


ADEV 


114 


ADEV 


115 


ADEV 


116 


ADEV 


117 


ADEV 


118 


ADEV 


119 


ADEV 


120 


ADEV 


122 


ADEV 


123 


ADEV 


124 


ADEV 


125 


ADEV 


126 


ADEV 


127 


ADEV 


129 


ADEV 


130 


ADEV 


131 


ADEV 


132 


ADEV 


133 


ADEV 


135 


ADEV 


136 


ADEV 


137 


ADEV 


138 


ADEV 


139 


ADEV 


140 


ADEV 


141 


' IN TABLE ADEV 


142 


ADEV 


144 


ADEV 


145 


ADEV 


146 


ADEV 


147 


ADEV 


148 


**MSOS 4.1** ADEV 


149 


ADEV 


150 


***MS0S4.0 ADEV 


151 


ADEV 


152 


ADEV 


153 


ADEV 


154 


ADEV 


155 



o 



r^\ 
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P0059 


2000 




ADC 


$2000 


P005A 


0000 


HAS 7 


NUM 





P005R 


CP34 


SCMNC 


LPA* 


FLAfiX 


P005C 


0115 




SAN 


SCHNX-*-l 


P0050 


0804 




SET 


A 


P005E 


6831 


£ 


STA* 


FLAfiX 


P005F 


54F4 




RTJ- 


(AMONI) 


PP060 


5244 




VFD 


N1/0.N1/1 


PP061 


0074 P 


* 


ADC 


NOALT 


PP062 


E800 


SCHNX 


LDQ* 


Q1SAV 


P0063 


C809 




LDA* 


SAVERR 


P0064 


0111 




SAN 


1 


P0065 


14EA 




JMP- 


(DISP) 


P0066 


6E08 




STA* 


(ATAB),Q 


P0067 


ODFE 




INQ 


-1 


P0068 


0151 




SQN 


1 


P0069 


EC05 




LDQ* 


(ATAB) 


P006A 


4805 




STQ* 


Q1SAV 


P006B 


14EA 




JMP- 


(DISP) 


P006C 


0000 


SAVERR 


ADC 





P006P 


015E P 


XALTSB 


ADC 


ALTSUB 


P006E 


7FFF X 


ATAB 


ADC 


ALTERR 


PPP6F 


0001 


Q1SAV 


NUM 


1 


PP070 


0001 


02SAV 


NUM 


1 


P0071 


0001 


HASHLO 


BSS 


HASHLD(l) 
HASRLU(l) 


P0072 


0001 


HASRLU 


BSS 


P0073 


7FFF X 


AL001 


ADC 


LOCI 



SCHEDULE DRIVER VIA PIIYSTB 



IF NOALT SECTION NOT BUSY 
SCHEDULE IT AT LEVEL 4 
SET BUSY FLAG 



SEARCH FOR MORE ENTRIES ON COMP 
INDEX TO ALTERR TABLE 



EXIT IF SAVERR = 
SAVE ERROR WORD IN TABLE 
UPDATE AND SAVE INDEX TO ALTERR 
SKIP IF NOT END OF TABLE 
SIZE OF TABLE 



SUB. TO SET Q=ALT. IF LU IN Q IS DOWN 
ADR OF ERROR WORD BUFFER TABLE 
INDEX FOR READING IN TO ALTER 
INDEX FOR READING OUT OF ALTERR TABLE 



MESSAGE OUTPUT AND HANDLING OF DRIVERS THAT 
HAVE NO ALTERNATE IS DONE AT LEVEL 4 



P0074 


E8FB 


P0P75 


0500 


P0076 


CEF7 


P0077 


0112 


P0P78 


6817 


PP079 


14EA 


P007A 


6800 


P007C 


0400 


P007D 


0F48 


P007E 


686A 


P007F 


OAOO 


PP080 


6EED 


P00P1 


C8EE 


PP0P2 


09FE 



0078 



NOALT 


LDQ* Q2SAV 


GET NEXT ENTRY FROM ALTERR T 




UN 


INHIBIT INTERRUPTS 




LDA* (ATAB),Q 






SAN NOALTX-*-l 


SKIP IF ENTRY FOUND 


* 




OTHERWISE 




STA* FLAGX 


CLEAR BUSY FLAG 




JMP- (DISP) 


EXIT 


NOALTX 


STA NOHOLD 
E1N 






ARS 8 


SAVE LU 




STA* NOLU 






ENA 


CLEAR ENTRY FROM TABLE 




STA* (ATAB),Q 






LPA* Q2SAV 


UPDATE INDEX TO ALTERR TABLE 




INA -1 





***MS0S4.0 ADEV 


156 


ADEV 


157 


ADEV 


159 


ADEV 


160 


ADEV 


161 


ADEV 


162 


ADEV 


163 


ADEV 


164 


***MS0S4.0 ADEV 


165 


***MS0S4.0 ADEV 


166 


ADEV 


167 


ADEV 


168 


ADEV 


169 


ADEV 


170 


ADEV 


171 


ADEV 


172 


TABLE ADEV 


173 


ADEV 


174 


ADEV 


175 


ADEV 


176 


ADEV 


177 


ADEV 


179 


; DOWN ADEV 


180 


ADEV 


181 


TABLE ADEV 


182 


TABLE ADEV 


183 


ADEV 


184 


ADEV 


185 


ADEV 


186 


ADEV 


188 


ADEV 


189 


ADEV 


191 


ADEV 


192 


ADEV 


193 


ADEV 


194 


ADEV 


195 


ADEV 


196 


ADEV 


197 


***MS0S4.0 ADEV 


199 


ADEV 


200 


ADEV 


201 


ADEV 


202 


ADEV 


203 


ADEV 


204 


ADEV 


205 


ADEV 


206 
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P0083 


0111 






SAN 1 


SKIP IF NOT END OF TABLE 


P0084 


CCE9 






LDA* (ATAB) 


SIZE OF TABLE 


P0085 


68EA 






STA* Q2SAV 




P0086 


EP62 






LDQ* NOLI) 




POOH 7 


CEOB 






LDA* (ALOGIA).Q SET UP 


P0088 


60FF 






STA- I 


BASE PDT IN I 


P0089 


CEE9 






LDA* (ALOGl).Q 




P008A 


AOOC 






AND- LPMSK+10 




P008B 


0822 






TRA Q 


Q = LU OF FIRST ALTERNATE 


P008C 


5CE0 






RTJ* (XALTSB) 


SET Q= ALT. IF LU IN Q IS DO 


P0080 


0156 






SQN N0A-*-l 




P008E 


1822 






JMP* N03 


NO ALTERNATE ASSIGNED 


porw 




0001 


FLAGX 


BZS FLAOX (1) 




P0090 




0001 


HASLU 


BSS HASLU(l) 




P0091 




0001 


HOLOAL 


BSS HOLDAL(l) 




P0092 


7FFF X 




AL0G1A AOC L0G1A 




P0093 


7FFF X 




AL0G2 


ADC L0G2 





ADEV 


207 


ADEV 


208 


ADEV 


209 


ADEV 


210 


AUEV 


211 


ADEV 


212 


ADEV 


213 


ADEV 


214 


ADEV 


215 


ADEV 


216 


ADEV 


217 


ADEV 


218 


ADEV 


220 


ADEV 


221 


ADEV 


222 


ADEV 


223 


ADEV 


224 



25 



30 



35 



40 



45 



50 
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P0094 


4PFC 


NOA 


STO* 


HOLDAL 


P0095 


C80P 




LDA* 


MAS300 


P0096 


BOH 




EOR- 


LPMSK+15 


P0097 


0106 




SAZ 


NOB 


P0098 


C4FF 




LDA- 


(I) 


POO 99 


6803 




STA* 


MRINA 


P009A 


EOFF 




LDQ- 


I 


P009B 


54F4 




RTJ- 


($F4) 


P009C 


5200 


MRINA 


NUM 


$5200 


P009D 


7FFF X 


MAS300 ADC 


RELBYQ 


P009E 


C84A 


NOB 


LDA* 


NOLU 


P009F 


584A 




RTJ* 


CONVRT 


POOAO 


6855 




STA* 


HASMS1+1 


P00A1 


C852 




LDA* 


NOHOLD 


P0PA2 


AOOA 




AND- 


NZERO-8 


P00A3 


5846 




RTJ* 


CONVRT 


P00A4 


6856 




STA* 


HASMS1+6 


P00A5 


C8EB 




LDA* 


HOLDAL 


P00A6 


5843 




RTJ* 


CONVRT 


P00A7 


6857 




STA* 


HASMS2+2 


P00A8 


54F4 




RTJ- 


(AMONI) 


P00A9 


4CF4 




VFD 


Nl/O.Nl/1,1 


PPOAA 


0074 P 


, 


ADC 


NOALT 


POOAB 


0000 




NUM 


0,$1FFC,12 


POOAC 


JPFC 








POOAO 


OOOC 








POOAE 


00F4 P 




ADC 


HASMS1 


POOAF 


14FA 




JMP- 


(DISP) 



THIS SECTION OUTPUTS THE MSG IF THE ALT IS OK 
SAVE ALTERNATE LU 



GET PDT ADDRESS 



RELEASE DRIVERS CORE IF ANY 

LU THAT FAILED 

CONVERT LU TO ASCII AND 

STORE IN MESSAGE 
ERROR WORD 

CONVERT ERROR CODE TO ASCII 

AND STOR< IN MESSAGE 
ALTERNATE LU 
CONVERT ALTERNATE TO ASCII 

AND STORE IN MESSAGE 
ALTERNATE LU MESSAGE 
N5/6,Nl/0,N4/15,N4/4 

SEARCH FOR MORE ENTRIES ON COMP 



WAIT FOR COMPLETION 



THIS SECTION IS ENTERED AT LEVEL 4 
WHEN NO OPERATIONAL ALTERNATE EXISTS 



ADEV 



226 



ADEV 


228 


ADEV 


229 


ADEV 


230 


ADEV 


231 


ADEV 


232 


ADEV 


233 


**MSOS 4.1** ADEV 


234 


ADEV 


235 


IRV)**MS0S4.0 ADEV 


236 


ADEV 


237 


ADEV 


238 


ADEV 


239 


ADEV 


240 


ADEV 


241 


ADEV 


242 


ADEV 


243 


ADEV 


244 


ADEV 


245 


ADEV 


246 


ADEV 


247 


ADEV 


248 


***MS0S4.0 ADEV 


249 


***MS0S4.0 ADEV 


250 


ADEV 


251 


***MS0S4.0 ADEV 


252 


ADEV 


253 


ADEV 


255 


ADEV 


256 



( ) 



r\ 



n 



1700 ASSEMBLY OF AOEV 



CLASS - VER 3.0 08/21/80 00.20.38. 



PAGE 



10 



15 



POOBO 


C838 


P00B1 


5838 


P00B2 


6843 


P00B3 


CR40 


P00B4 


AOOA 


P00B5 


5834 


P00B6 


6844 


P00B7 


54F4 


POOBP 


4CF4 


P00B9 


0000 


POOBA 


0000 


POPBB 


1PFC 


POOBC 


0007 


POOBP 


00F4 P 



N03 



LDA* NOLI) 
RTJ* CONVRT 
STA* N0MES1+1 
LOA* NOHOLD 
AND- NZERO-8 
RTJ* CONVRT 
STA* N0MES1+6 
RTJ- (AMONI) 



CONVERT LU TO ASCII AND 
STORE IN MESSAGE 



CONVERT ERROR CODE TO ASCII 

AND STORE IN MESSAGE 
TELL THE OPERATOR 



VFD Nl/0,r'l/l,N5/6,Nl/0,N4/15,N4/4 

ADC 

NUM 0,$18FC,7 



ADC N0MES1 



**MSOS 4.1** ADEV 


258 


ADEV 


259 


ADEV 


260 


ADEV 


261 


ADEV 


262 


ADEV 


263 


ADEV 


264 


ADEV 


265 


***MS0S4.0 ADEV 


266 


ADEV 


267 


ADEV 


268 



***MS0S4.0 ADEV 



269 



20 



REQUEST ACTION BY THE OPERATOR 



ADEV 



271 



25 



30 



POOBE 


OAFF 


N02 ENA 


-0 


POOBF 


6845 


STA* 


BUF 


POOCO 


54F4 


RTJ- 


(AMONI) 


P00C1 


4CF4 


VFD 


Nl/0,Nl/l,N5/6,Nl/0,N4/15,N4/4 


P00C2 


0000 


ADC 





P00C3 


0000 


NUM 


0,$18FC,4 


P00C4 


1PFC 






P00C5 


0004 






P00C6 


0100 P 


ADC 


N0MES2 



ADEV 


273 


ADEV 


274 


ADEV 


275 


***MS0S4.0 ADEV 


276 


ADEV 


277 


ADEV 


278 


**MSOS 4.0 ADEV 


279 



35 



40 



45 
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55 



P00C7 


54F4 


P00C8 


48F4 


P00C9 


OOCF P 


POOCA 


0000 


POOCB 


1PFD 


POOCC 


0001 


POOCD 


0104 P 


POOCE 


14EA 



GET OPERATOR INPUT VIA COMMENT INPUT MEDIUM 

RTJ- (AMONI) 

VFD Nl/0,Nl/l,N5/4,Nl/0,N4/15,N4/4 

ADC N05 

NUM 0,$18FD,1 



ADC BUF 
JMP- (DISP) 



AT THIS TIME, THE LEGAL OPTIONS IN BUF CAN BE 
REPEAT REQUEST 
CONTINUE - KEEP DEVICE UP 
CONTINUE - MARK DEVICE DOWN 
DELETE JOB - KEEP DEVICE UP 
DELETE JOB - MARK DEVICE DOWN 

ANYTHING ELSE CAUSES REPETITION OF THE ACTION 
PRINTOUT. 



ADEV 



281 



1. 


RP 


2. 


CU 


3. 


CD 


4 


DU 


5 


DD 



POOCF 
POODO 



0161 
1PED 



N05 



SQP 1 
JMP* N02 



NO 10 ERROR 

10 ERROR OR TIMEOUT, REPEAT 





ADEV 


283 


***MS0S4.0 


ADEV 


284 


***MS0S4.0 


ADEV 


285 




ADEV 


286 


***MS0S4.0 


ADEV 


287 




ADEV 


288 




ADEV 


290 




ADEV 


291 




ADEV 


292 




ADEV 


293 




ADEV 


294 




ADEV 


295 




ADEV 


296 




ADEV 


297 




ADEV 


298 


**MSOS 4.1** 


ADEV 


300 


**MSOS 4.1** 


ADEV 


301 
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pnoni 


CP33 


P00D2 


9833 


P00P3 


0112 


P0004 


1800 


P00P6 


8830 


P00D7 


0112 


ppppp 


1800 


POODA 


0911 


POODB 


0112 


poonc 


1800 


POODE 


9829 


POODF 


0112 


POOEO 


1800 


POOL 2 


0911 


pom:3 


0112 


P00E4 


1800 


P00E6 


OBOO 


POOI: 7 


1806 



0033 



0043 



0048 



0065 



0073 



N06 



N07 



N08 



N09 



N010 



LOA* 

SUR* 

SAN 

JMP 

ADD* 

SAN 

JMP 

1NA 

SAN 

JMP 

SUB* 

SAN 

JMP 

INA 

SAN 

JMP 

NOP 

JMP* 



BUF 

RP 

N06-*-l 

A 

CU 

N07-*-l 

B 

$11 

N08-*-l 

C 

DU 

N09-*-l 

D 

$11 

N010-*-l 

E 



N02 



CHECK DATA INPUT 



ITS REPEAT 



CONTINUE 



CONTINUE DEVICE DOWN 



JOB DELETE 



JOB DELETE DEVICE DOEN 
DONT KNOW - TRY AGAIN 



ADEV 


302 


ADEV 


303 


ADEV 


304 


ADEV 


305 


ADEV 


306 


ADEV 


307 


ADEV 


308 


ADEV 


309 


ADEV 


310 


ADEV 


311 


ADEV 


312 


ADEV 


313 


ADEV 


314 


ADEV 


315 


\ ADEV 


316 


ADEV 


317 


ADEV 


318 


ADEV 


319 



POOF 8 



onoi 



N0LU BSS NOLU(l) 



**MS0S4.0** ADEV 



321 



25 



30 



35 



40 



45 



50 



55 



HEX TO ASCII CONVERSION 
A-REG = $00 TO $63 ON ENTRY 
ROUTINE CONVERTS TO DECIMAL 
AND RETURNS WITH ASCII CHARS 
THE Q-REGISTER IS NOT SAVED 



IN A 



P00E9 


0000 




CONVRT NUM 





POOEA 


0500 






UN 





POOEB 


OCOO 






ENQ 





POOEC 


3046 






DVI- 


TEN 


POOED 


0FC8 






ALS 


8 


POOEE 


0834 






AAQ 


A 


POOEF 


8000 


3030 




ADD 


=N$3030 


P00F1 


0400 






EIN 





P00F2 


1CF6 






JMP* 


(CONVRT) 


POOF 3 




0001 


NOHOLD 


BSS 


NOHOLD(l) 


P00F4 


4C2C 




HASMS1 


ALF 


7,L, FAILED 


POOF 5 


2020 










P00F6 


2046 










POOF 7 


4149 










PP0F8 


4C45 










POOF 9 


4420 










POOFA 


2020 










POOFB 


20PP 






NUM 


$2000 


POPFC 


414C 




HASMS2 


ALF 


3, ALT, 


POOFD 


542C 










POOFE 


2P20 










PPPFF 


2PPD 






NUM 


$2000 






00F4 P 


NOME SI 


EOU 


NOMESl(HASMSl) 


P01P0 


4143 




N0MES2 


ALF 


3, ACT ION 


P0101 


5449 











HEX TO ASC CONVERSION 



MSB IN A, LSB IN Q 



TWO ASCII CHARS IN A-REG 



ADEV 


323 


ADEV 


324 


ADEV 


325 


ADEV 


326 


ADEV 


327 


ADEV 


329 


ADEV 


330 


ADEV 


331 


ADEV 


332 


ADEV 


333 


ADEV 


334 


ADEV 


335 


ADEV 


336 


ADEV 


337 


ADEV 


339 


ADEV 


340 



ADEV 
ADEV 



ADEV 
ADEV 
ADEV 



341 
342 



343 
344 
345 
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P0102 
P0103 
P0104 
P0105 
P0106 
P0107 



P0108 
P010A 
P010B 
P010C 
P010P 
P010E 
P010F 
P0111 
P0112 
P0113 
P0114 
P0115 
P0116 
P0117 



P0118 
P0119 
P011A 
P011B 



4F4E 
200D 

0001 
5250 
OEFB 
0111 



EPOO FFDE 

CE51 

0822 

680E 

C206 

60FF 

EPOO FFD7 

0500 

CE4A 

6102 

COFF 

0400 

6E46 

EE44 



54F4 
2000 
0000 
1C42 



BUF 
RP 
CU 
DU 



NUM $200D 
BSS BUF(l) 
ALF l.RP 
NUM $EFB 
NUM $111 
THIS ROUTINE PROCESSES THE REPEAT OPTION. 



AO 
Al 



LDQ NOLU 

LDA* (BLOGIA).Q 

TRA Q 

STA* Al 

LOA- EPTR.O 

STA- I 

LDQ NOLU 

UN 

LDA* (BL0G2),Q 

STA- PT.I 

LDA- I 

EIN 

STA* (BL0G2),Q 

LDQ* (BLOGIA).Q 



RTJ- (AMONI) 
ADC $2000 
NUM 
JMP* (ANOALT) 



P.D.T. ADDRESS TO Q 
SCHEDULE DRIVER DIRECTLY 
REQUEST PARAMETER ADDRESS 

LOGICAL UNIT 

RETHREAD THIS REQUEST 
TO THE TOP OF THE THREAD 



PYSTAB ADDRESS TO Q 



REPEAT THE REQUEST 
INDIRECT 

RETURN TO SEARCH ALTERR FOR MORE ENTRIES 





ADEV 


346 




ADEV 


347 




ADEV 


348 




ADEV 


349 




ADEV 


350 




ADEV 


351 




ADEV 


353 




ADEV 


354 


65*1417 


ADEV 


355 


65*1417 


ADEV 


356 


65*1417 


ADEV 


357 


65*1417 


ADEV 


358 


65*1417 


ADEV 


359 


65*1417 


ADEV 


360 


65*1417 


ADEV 


361 


65*1417 


ADEV 


362 


65*1417 


ADEV 


363 


65*1417 


ADEV 


364 


65*1417 


ADEV 


365 


65*1417 


ADEV 


366 




ADEV 


368 


**MS0S4. 


ADEV 


369 




ADEV 


370 


IES 


ADEV 


371 



35 



THIS ROUTINE IS ENTERED VIA THE CONTINUE OPTION 



ADEV 



373 



40 



45 



50 
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P011C 


E800 


P011E 


CF3D 


P011F 


60FF 


P0120 


54B6 


P0J21 


COFF 


P0122 


68F7 


P0J23 


EOFF 


P0124 


18F3 



FFCA 



P0125 
P0126 

P0127 
P012P 
P0129 



E8C2 
0500 

CE34 
60FF 
C109 



LDQ NOLU 
LDA* (BLOGIA).Q 
STA- I 
RTJ- (COMP) 
LDA- I 

STA* Al 
LDQ- I 
JMP* AO 



COMPLETE THE REQUEST 



Q = ADR OF P.D.T. 

SCHEDULE THE DRIVER INITIATOR 



THIS ROUTINE IS ENTERED TO MARK DEVICE DOWN AND 
REPORT THE ERROR TO ALL CALLERS. 



LDQ* NOLU 
UN 

LDA* (BL0G1A),Q 

STA- 1 

LDA- ESTAT1.I 



LOGICAL UNIT NO. TO Q 
4 CARDS DELETED 

SCHEDULE ALL COMPLETION 





ADEV 


375 




ADEV 


376 




ADEV 


377 




ADEV 


378 




ADEV 


379 


********** 


ADEV 


380 




ADEV 


381 




ADEV 


382 




ADEV 


383 




ADEV 


385 
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************************************************************************ ALAQ 42 
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pnonc 


0151 


SQN 


NOGOT 


PP00D 


18F7 


JMP* 


RTNGOT 


POOOE 


681A 


NOOOT STA* 


TEMPI I 


POOOF 


F.853 


LDQ* 


STKADD 


P0010 


C81A 


LDA* 


AQIN 


pooh 


0832 


AAQ 


Q 


P001 2 


C62? 


LPA- 


(ZERO).Q 


P001 3 


0102 


SAZ 


GOOD 


POOH 


5400 7FFF 


: X RTJ+ 


SYFAIL 


P0016 


C8E9 


GOOD LDA* 


RQAQ 


P0017 


6622 


STA- 


(ZERO),Q 


P0018 


0D01 


INQ 


1 


P0019 


C80F 


LDA* 


TEMPI I 


P001A 


6622 


STA- 


(ZERO),Q 


P001B 


0D01 


INQ 


1 


P001C 


COEF 


LDA- 


PRIOR 


P001D 


6622 


STA- 


(ZERO).Q 


P001E 


C80C 


LDA* 


AQIN 


P001F 


EC45 


LDQ* 


(XSTKSZ) 


P0020 


0852 


TCQ 


Q 


P0021 


0903 


INA 


3 


P0022 


0832 


AAQ 


Q 


P0023 


0151 


SQN 


NOOVER 


P0024 


0814 


TRQ 


A 


P0025 


6805 


NOOVER STA* 


AQIN 


P0026 


0400 


EIN 





P0027 


14EA 


JMP- 


(ADISP) 


P0028 


0000 


TEMPII NUM 





PPP2 


POOP 


1 BUSYAQ NUM 





P002A 


00(10 


AQIN NUM 





PPP2R 


OPPO 


AQOUT NUM 





P002C 


POOO 


ITAQ NUM 





P002P 


0000 


TIAQ NUM 





POOPE 


OPOO 


GOTAQ NUM 






**MSOS 4.1** 



**MSOS 4.1** 



ACESS ENTRY 

INHIBIT INTERRUPTS 

CHECK BUSY STATUS 

SKIP IF BUSY 

SET BUSY FLAG **MSOS 4.1** 

PUT I-REG. INTO Q-REG. FOR RETURN 

SAVE PDT ADDRESS OF CURRENT USER 

ENABLE INTERRUPTS 

RETURN TO CALLER **MSOS 4.1** 

CREATE TEMPORARY HOLDING AREA FOR STACK DATA 

SEE IF THIS DRIVER ALREADY HAS AQ 

SKIP IF NOT CURRENT USER 

RETURN TO DRIVER - ALREADY HAS IT 

SAVE DRIVER I-REG. 

PICK UP POINTER TO STACK ADDRESS **MSOS 4.1** 

PICK UP POINTER FOR NEXT IN **MSOS 4.1** 

PICK UP FIRST VACANT LOCATION 

A/Q TABLE IN SYSDAT NOT LARGE ENOUGH - HANG 
ASSEMBLE STACK ENTRYRETURN ADDRESS**MSOS 4.1** 



DRIVER I-REGISTER 



DRIVER" PRIORITY 

RESET NEXT IN POINTER 
OBTAIN STACK SIZE 



**MSOS 4.1** 



ENABLE INTERRUPTS 
EXIT TO DISPATCHER 



**MSOS 4.1** 



**MSOS 4.1** 
**MSOS 4.1** 
**MSOS 4.1** 



ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
Al AQ 
ALAQ 
ALAQ 
ALAQ 



50 
51 
52 
53 

54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 

78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
9b 



1700 ASSEMBLY OF ALAQ 



CLASS - VER 3.0 08/21/80 00.20.41. 



PACE 



10 



* THIS SECTION IS ENTERED BY THE DRIVER TO RELEASE THE A/Q CHANNEL* ALAQ 98 

* IF NO OTHER DRIVER IS WAITING, RETURN IS MADE IMMEDIATELY TO * ALAQ 99 

* DRIVER. OTHERWISE, THE STACK ENTRY IS MOVED INTO THIS PROGRAM * ALAQ 100 

* IF NO OTHER DRIVER IS WAITING, REltlHN IS MADE IMMEDIATELY TO * ALAQ 101 

* DRIVER. OTHERWISE, THE STACK ENTRY IS MOVED INTO THIS PROGRAM * ALAQ 102 

* AND THE RELEASING DRIVER AND REQUESTING DRIVER ARE BOTH * ALAQ 103 

* SCHEDULED * ALAQ 104 
************************************************************************ ALAQ 105 



15 



20 



25 



30 



35 



40 



45 



50 



55 



P002F 


nnoo 


P0030 


0500 


P0031 


COFF 


P003? 


E8FB 


P0033 


0872 


POP34 


0143 


PO035 


0822 


P0P3fi 


0400 


P0037 


1CF7 


P0038 


68F3 


P0039 


E8F0 


P003A 


C8F0 


P003B 


0872 


P003C 


01 5A 


P003D 


E825 


P003E 


0832 


P003F 


E622 


P0040 


0156 


P0041 


OAOO 


PP042 


68E6 


P0013 


6PEA 


P0014 


E8E7 


P0046 


0400 


P0046 


1CE8 


P0047 


EP1B 


POP 18 


0832 


P0049 


Cfi22 


P001A 


68 1E 


p no-iB 


0844 


P0P4C 


6622 


P004D 


0D01 


P004E 


C622 


P004F 


6PDE 


PP050 


0844 


P0051 


6622 


P005? 


onoi 


P0053 


C622 


P0054 


880F 


P0055 


6812 


P0056 


0844 


P0O57 


6622 


P0058 


C8D2 


P0059 


ECOB 


P005A 


0852 



RLAQ NIIM 
UN 
LDA- 
LDQ* 
EAQ 
SQZ 
TRA 
EIN 
JMP* 

COTNO STA* 
LDQ* 
LDA* 
EAQ 
SQN 
LDQ* 
AAQ 
LDQ- 
SQN 
ENA 
STA* 
STA* 
LDQ* 
EIN 
JMP* 
LDQ* 
AAQ 
LDA- 
STA* 
CLR 
STA- 
INQ 
LDA- 
STA* 
CLR 
STA- 
INQ 
LDA- 
ADD* 
STA* 
CLR 
STA- 
LDA* 



DOIT 





I 
GOTAQ 

Q 
GOTNO 

Q 



(RLAQ) 

ITAQ 

AQIN 

AQOUT 

Q 

DOIT 

STKADD 

Q 

(ZERO),Q 

DOIT 



BUSYAQ 

GOTAQ 

ITAQ 



(RLAQ) 

STKADD 

Q 

(ZERO),Q 

SKD11 

A 

(ZERO).Q 

1 

(ZERO),Q 

GOTAQ 

A 

(ZERO),Q 

1 

(ZERO),Q 

SKDMSK 

SKD01 

A 

(ZER0),Q 

AQOUT 



RELEASE ENTRY **MSOS 4.1** 

INHIBIT INTERRUPTS 

SAVE DRIVER I-REG. 

SEE IF RELEASING DRIVER REALLY* HAS AQ 



SKIP IF SAME **MSOS 4.1** 

IGNORE RELEASE - NOT ACQUIRED 
CHECK IF POINTERS = 



**MSOS 4. 
**MSOS 4, 
**MSOS 4. 



1** 
i** 



SKIP IF PTRS NOT EQUAL 

PTRS= IS STACK FULL OR EMPTY **MSOS 4.1** 



SKIP IF STACK FULL 

STACK CLEARED, ZERO BUSY FLAG 

AND RETURN **MSOS 4. 

CLEAR CURRENT USER PDT ADDRESS 

RESTORE DRIVER I-REG. **MSOS 4. 

RETURN TO DRIVER **MSOS 4. 

MOVE STACK ENTRY TO TEMP **MSOS 4, 



SET LOCATION TO SCHEDULE 



LDQ* (XSTKSZ) 
TCQ Q 



NEW DEVICE HAS AQ 



SET SCHEDULE CODE + PRIORITY 



UPDATE STACK PTR **MSOS 4. 

1 CARD DELETED 

PICK UP STACK SIZE **MSOS 4. 



ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 

1** ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 

1** ALAQ 
ALAQ 

1** ALAQ 
ALAQ 

1** ALAQ 

1** ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 
ALAQ 

1** ALAQ 
ALAQ 

1** ALAQ 
ALAQ 



107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 

146 
147 
148 
149 
150 
151 



o 



v 



170(1 ASSEMBLY OF ALAQ 



CLASS - VER 3.0 



08/21/80 



PP05B 


0P03 


INA 3 


P0P5C 


OP32 


AAQ Q 


P005D 


0151 


SON OVERNO 


P005E 


0P14 


TRQ A 


P005F 


68CB 


OVERNO STA* AQOUT 


POOfiP 


CPCE 


LPA* RLAQ 


POOfil 


1804 


JMP* SKPL 



UPDATE STACK POINTER 
PICK UP RETURN ADDRESS 
GO TO SCHEDULER ROUTINE 



00.20.41. PAGE 


5 


ALAQ 


152 


ALAQ 


153 


ALAQ 


154 


ALAQ 


155 


**MSOS 4.1** ALAQ 


156 


**MSOS 4.1** ALAQ 


157 


**MSOS 4.1** ALAQ 


158 



1700 ASSEMBLY OF ALAQ CLASS - VER 3.0 08/21/80 00.20.41. PAGE 6 

************************************************************************ /\| /\n J60 

* TABLE OF ADDRESSES AND CONSTANTS * ALAQ 161 

****** ******************************************************* *********** ALAQ 162 

DATA STACK ADDRESSES **MS0S 4.1** ALAQ 164 

10 P0P63 5200 SKDMSK NUM $5200 ALAQ 165 

**MS0S 4.1** ALAQ 166 



P0062 


7FFF X 


STKADD ADC AQSTCK 


P0P63 


5200 


SKDMSK NUM $5200 


P0[164 


7FFF X 


XSTKSZ ADC AQSS1Z 



o o o 



o 



o 



1700 ASSEMBLY OF ALAQ 



CLASS - VER 3.0 OR/21/80 00.20.41. 



PACE 



IP 



15 



20 



************************************************************************ fl| ym 

* THIS SECTION SCHEDULES THE REQUESTING AND RELEASING DRIVERS * 

* AT THEIR PRIORITIES. * 

************************************************************************ 



P0065 


ERC8 


SKDL 


LDQ* 


GOTAQ 




P0066 


54F4 




RTJ- 


(AMONI) 


SCHEDULE NEXT USER 


P0067 


0000 


SKD01 


NUM 







P0068 


0000 


SKD11 


NUM 







P0069 


0500 




UN 







P006A 


68C4 




STA* 


RLAQ 


RESTORE RETURN ADDRESS 


P006B 


EOFF 




LDQ- 


I 


RESTORE PDT ADDRESS 


P006C 


0400 




EIN 







P006D 


1CC1 




JMP* 


(RLAQ) 


RETURN 


P006E 


14EA 




JMP- 


(ADISP) 


EXIT TO DISPATCHER 


P006F 






END 







AI.AQ 


168 


ALAQ 


169 


ALAQ 


170 


ALAQ 


171 


ALAQ 


173 


ALAQ 


174 


ALAQ 


17b 


ALAQ 


176 


ALAQ 


177 


ALAQ 


178 


ALAQ 


179 


ALAQ 


180 


ALAQ 


181 


ALAQ 


182 


ALAQ 


183 



61011B STORAGE USED 
6400 ASSEMBLY 



182 STATEMENTS 
1.076 SECONDS 



30 SYMBOLS 
99 REFERENCES 



1700 ASSEMBLY OF AL/\Q 
COMPLETE REFERENCE MAP. 



CLASS - VER 3.0 08/21/80 00.20.41. 



PAGE 



AD ISP 


OOEA 


ABSOLUTE 


2/43 Q 


3/51 


7/19 








AMONI 


00F4 


ABSOLUTE 


2/44 Q 


7/H 










AQTN 


002A 




3/29 


3/42 


3/49 


3/54 L 


4/25 




AQOUT 


002B 




3/55 L 


4/26 


4/56 


5/07 






AQSSIZ 


0064 


♦EXTERNAL* 


2/36 X 


6/11 










AQSrCK 


0062 


♦EXTERNAL* 


2/35 X 


6/09 










BUSYAQ 


0029 




3/15 


3/17 


3/53 L 


4/34 






DOIT 


0047 




4/28 


4/32 


4/39 L 








GOOD 


0016 




3/32 


3/34 L 










GOTAO 


002E 




3/19 


3/23 


3/58 L 


4/18 


4/35 


4/47 


GOTNO 


0038 




4/20 


4/24 L 










I 


OOFF 


-SYSTEM- 


3/18 


3/22 


4/17 


7/16 






ITAO 


002C 




3/56 L 


4/24 


4/36 








NOOOT 


OOOE 




3/25 


3/27 L 










NOOVER 


0025 




3/47 


3/49 L 










OVER MO 


0P5F 




5/05 


5/07 L 










PRIOR 


OOEF 


ABSOLUTE 


?/42 Q 


3/40 










RI./IQ 


002F 




2/31 E 


4/15 L 


4/23 


4/38 


5/08 


7/15 


ROAQ 


0000 




2/30 E 


3/13 L 


3/21 


3/34 






RTNOOT 


0005 




3/18 L 


3/26 










SKDL 


0065 




5/09 


7/10 L 










SKPMSK 


0063 




4/52 


6/10 L 










SKD01 


0067 




4/53 


7/12 L 










SKD11 


0068 




4/42 


7/13 L 










STKAPD 


0062 




3/28 


4/29 


4/39 


6/09 L 






SYFAIL 


0015 


♦EXTERNAL* 


2/37 X 


3/33 










TEMP 1 1 


0028 




3/27 


3/37 


3/52 L 








THREAD 


0009 




3/16 


3/22 L 










T1AQ 


002D 




3/57 L 












XSTKSZ 


0064 




3/43 


4/58 


6/11 L 








ZERO 


0022 


ABSOLUTE 


2/41 Q 


3/35 


3/41 


4/41 


4/46 


4/51 








3/31 


3/38 


4/31 


4/44 


4/49 


4/55 



7/10 



7/18 



o o 



1700 ASSEMBLY OF PTIMER CLASS - VER 3.0 08/21/80 00.20.4?. PAGE 1 

STORAGE ALLOCATION. 

APPRESS LENGTH BINARY CONTROL CARDS. 

0000 0022 NAM PTIMER PECK- IP M05 MSOS 5.0 SUMMARY. 

0022 ENP 

ENTRY POINT NAMES AND ADPRESSES. 

PTIMER — 0000 DTMER -- 0000 

EXTERNAL SYMBOLS. 

DGNTAB TMRLVL 



1700 ASSEMBLY OF DTIMER 



CLASS - VER 3.0 08/21/80 00.20.42. 



PAGE 



NAM DTIMER DECK- ID M05 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY-110 DTIMER 2 

DTIMER 3 

DTIMER 4 

DTIMER 5 



10 



0000 P 
0000 P 



E006 DIAGNOSTIC TIMER 
ENT DTMER 
EQU DTMER (*) 



DT IMER 
DTIMER 
DTIMER 



15 



THIS CORE RESIDENT PROGRAM IS OPERATED PERIODICALLY 
VIA A TIMER REQUEST. IT IS USED TO DETECT I/O HANGUP 
ONLY THE DEVICES LISTED IN TABLE DGNTAB ARE SUPERVISED. 

IT CAN BE OPERATED IN MULTIPLES OF 1/10 SECS 



DTIMER 
DTIMER 
DTIMER 

DTIMER 



12 
13 

14 
16 



20 



0000 P 



ENT DTIMER 



DTIMER 



18 



25 



30 



0004 
0003 
OOOA 
0008 
4000 
00F4 
OOEA 
0002 



EXT DGNTAB 

EXT TMRLVL 

EQU EDCLK(4) 

EQU EDPGH(3) 

EQU DELAY(IO) 

EQU TIMRC(8) 

EQU DBIT($4000) 

EQU AM0NI($F4),ADISP($EA) 

EQU ZER0(2) 



TABLE OF P.D.T. ADRS 
TIMER LEVEL DEFINED IN SYSDAT 
DIAGNOSTIC CLOCK LOCATION 
DIAGNOSTIC ERROR ENTRY 
DELAY TIME IN 1/10 SECS 
TIMER REQUEST CODE 



DTIMER 


20 


**MSOS 4.0 DTIMER 


21 


DTIMER 


22 


DTIMER 


23 


DTIMER 


24 


DTIMER 


25 


***MS0S4.0 DTIMER 


26 


DTIMER 


27 



DTIMER 



28 



35 



40 



4 5 



50 



55 



POOOO 
P0001 
P0002 
P0003 
P0005 
P0006 
P0D07 

ponop 
ponop 
ponoA 

POO OB 
POOPC 
POOOP 
POOPE 
POOOF 
P0010 

pooh 

POO] 2 
P0013 
P0014 



POO 15 
P0016 
P001 7 



OAOO 
6816 
E815 
E600 
0161 
1812 
C204 
0121 
1P0C 
OPFE 
6204 
0131 
1808 
G602 
6804 
C203 
6803 
54F4 
0000 
0000 



D802 
1PEB 
0000 



7FFF X 



DTIMER ENA 
STA* 

A2 LDQ* 
LDQ 
SQP 
JMP* 
IDA- 
SAP 
JMP* 
INA 
STA- 
SAM 
JMP* 
LDA- 
STA* 
LPA- 
STA* 
RTJ- 

SCHED1 NUM 

SCHED2 NUM 



A7 



A5 



A6 





J 

J 

DGNTAB, Q 

A7-*-l 

A3 

EDCLK,Q 

A5-*-l 

Al 

-1 

EDCLK ,Q 

A6-*-l 

Al 

(ZtRO).Q 

SCHEP1 

EPPCM.Q 

SCHEP2 

(AMONI) 







Al 



RAO* J 
JMP* A2 
NUM 



SET J=1ST LG1A ENTRY 



GET ADR OF P.D.T. 
IS THIS END OF TABLE 
YES EXIT 



GO TO Al. 

DECREMENT DCLK(J) BY 1. 

IF PCLK(J) IS NEGATIVE, 

SCHEDULE DIAGNOSTIC 
ERROR ENTRY 



CALL SCHEDULER 
REQUEST CODE, LEVEL 
LOCATION IN DRIVER 
INSERT ANY OTHER PROGRAM 
ACTION IN HERE 
INCREMENT J BY 1. 






DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DT IMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 
DTIMER 



30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



n 



o 



o 



1700 ASSEMBLY OF DTIMER 



10 



15 



P0018 


CP05 


P0019 


A016 


POO] A 


PP07 


P001B 


6P0? 


P001C 


54F4 


P0010 


5010 


pnoiE 


0000 P 


P001F 


oooa 


pno?o 


14EA 


P0021 


7FFF X 



A3 



RQC0P 



DTLVl. 







CLASS - VER 


3.1 


() 08/21/80 


00.20.42. PAGE 


3 






TIMER DELAY 






DTIMER 


55 


LDA* 


RQCOD 


SET DIAGNOSTIC TIMER 


LEVEL 


**MSOS 1.0 DTIMER 


56 


ANP- 


$16 


$FFF0 MASK 






**MSOS 4.0 DTIMER 


57 


ADD* 


DTLVL 








**MS0S 4.0 DTIMER 


58 


STA* 


RQCOD 








**MS0S 4.0 DTIMER 
DTIMER 


59 
60 


RTJ- 


(AMONI) 








**MSOS 4.0 DTIMER 


61 


ADC 


TIMRC*$?00+$10+DBIT 






**MSOS 4.0 DTIMER 


62 


ADC 


DTIMER 








***MS0S4.0 DTIMER 


63 


ADC 


DELAY 








DTIMER 


64 


JMP- 


(ADISP) 


CALL DISPATCHER 






DTIMER 


65 


ADC 


TMRLVL 








DTIMER 


66 



P0022 



END 



DTIMER 



68 



56751B STORAGE USED 
6400 ASSEMBLY 



67 STATEMENTS 
0.587 SECONDS 



23 SYMBOLS 
53 REFERENCES 



17D0 ASSFMBLY OF DTIMFR 
COMPLETE REFERENCE MAP. 



CLASS - VER 3.0 08/21/80 00.20.12. 



PAGE 



ARISP 


OOEA 


ABSOLUTE 


2/30 Q 


3/13 






AMONI 


00F4 


ABSOLUTE 


2/30 Q 


2/52 


3/09 




A) 


0015 




2/43 


2/47 


2/57 L 




A2 


0002 




2/37 L 


2/58 






A3 


0018 




2/40 


3/04 L 






A5 


OOOA 




2/42 


2/44 L 






A6 


OOOE 




2/46 


2/48 L 






A7 


0007 




2/39 


2/41 L 






OBIT 


4000 


ABSOLUTE 


2/29 Q 


3/10 






DELAY 


OOOA 


ABSOLUTE 


2/27 Q 


3/12 






DONTAB 


0004 


♦EXTERNAL* 


2/23 X 


2/38 






UTIMER 


0000 




2/21 E 


2/35 L 


3/11 




DTI.VL 


0021 




3/06 


3/14 L 






OTHER 


0000 




2/10 E 


2/11 Q 






EDCLK 


0004 


ABSOLUTE 


2/25 Q 


2/41 


2/45 




EPPCM 


0003 


ABSOLUTE 


2/26 


2/50 






J 


0017 




2/36 


2/37 


2/57 


2/59 L 


ROC on 


ooi n 




3/04 


3/07 


3/10 L 




SCHF.P1 


0013 




2/49 


2/53 L 






SCHFn? 


0014 




2/51 


2/54 L 






TIMRC 


OOOP 


ABSOLUTE 


2/28 Q 


3/10 






TMRLVL 


0021 


♦EXTERNAL* 


2/24 X 


3/14 






ZERO 


0002 


ABSOLUTE 


2/32 Q 


2/48 







o 



1700 ASSEMBLY OF MMEXEC 
STORAGE ALLOCATION. 



J 



CLASS - VER 3.0 08/21/80 00.20.43. 



PAGE 



ADDRESS 

0000 
0193 



LENGTH 
0193 



BINARY CONTROL CARDS. 

NAM MMEXEC DECK- ID M01 MSOS 5.0 
END 



SUMMARY 



BLOCKS 



TYPE 



MMEXEC PROGRAM* 

OCUPNT LOCAL 

QUE LOCAL 

QUEMM LOCAL 



ADDRESS 



LENGTH 



0000 0193 

0094 000? 

00A2 0008 

OOAA 0008 



ENTRY POINT NAMES AND ADDRESSES. 



MASCON — 


0155 


MASERR 


— 0189 


MAS300 - 


- 00B3 


MASDRV — 


0000 


MASEXT 


— 00B3 


RELBYQ - 


- 00B2 


EXTERNAL SYMBOLS. 












ALTDEV 


BUFF 


BUFFE 


LOG 


L0G1A 





1700 ASSEMBLY OF MMEXEC 



10 



15 



?0 



25 



30 



35 



40 



45 



CLASS - VER 3.0 08/21/80 



NAM MMEXEC DECK-ID M01 MSOS 5.0 
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pohec 

POPED 

ppnFF 

POOEF 
POOFO 
P00F1 
P00F3 
P00F4 
PP0F5 
P00F6 
P00F7 
P00F8 
P00F9 
POOFA 
POOFB 



4PP0 
EEFC 
C20E 
B10E 
0101 
1818 
C20P 
R10D 
0101 
1814 

0500 
C205 
0106 
C208 
0134 
40FF 
E8C1 
DAB3 
18E8 



COOO 
6201 
COOO 
6202 
COOO 
6203 
0400 
E800 
OPFE 
0141 
1PDP 
E8AE 
CAR 3 
0115 
E8A5 
5800 
48A9 
14EA 
60FF 
OAOO 
6AAA 
582F 
68A2 
E89B 
1800 



00C9 P 
FF6B 



AL0G1A 
L00P2 



00P5 P 



TAGOOO 



TAG001 



EQII 

STQ 

LDO* 

LDA- 

EOR- 

SAZ 

JMP* 

LDA- 

EOR- 

SAZ 

JMP* 

EQU 

UN 

LDA- 

SAZ 

LDA- 

SAM 

STQ- 

LDQ* 

RAO* 

JMP* 



AL0G1A(*-1) 

TEMP 

(ALOGIA).Q 

MASSEC.Q 

MASSEC.I 

TAGOOO 

NOSAME 

MASLGN.Q 

MASLGN.I 

TAG001 

NOSAME 

TAG001(*) 



ELU.Q 

NOASGN 

8,0 

NOASGN 

I 

NXTBUF 

BFSTAT.Q 

0KIN2 



OODE P 
0000 P 

0155 P 

0189 P 

FF4P 



NOASGN 



EQU 
LDA 
STA- 
LDA 



NOSAME 



FF60 



FF29 



POOFP 
POOFE 



E89E 
CAA3 



NOASGN(*) 
=XMASDRV 

l.Q 

=XMASCON 
STA- 2,Q 
LDA =XMASERR 
3,Q 


TEMP 
-1 

OONRES 
JMP* L00P2 
DONRES LPQ* NXTXCT 
QUE.Q 
ONEWAT 
BUFNUM 
SWITCH 
NXTBUF 
JMP- (ADISP) 
ONEWAT STA- I 
ENA 
STA* QUE.Q 
RTJ* BUMPQ 
STA* NXTXCT 
LDO* BUFNUM 
JMP G0T1 



QUE IT ROUTINE 



QUEIT LDO* NXTXCT 
I00P3 LDA* OUF.O 



STA- 

EIN 

LPQ 

INQ 

SOZ 



LDA' 

SAN 

LPO" 

RTJ 

STQ J 



ADDRESS OF LOGIA 
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MMEXEC 


289 


GET PDT ADDRESS 




MMEXEC 


290 


GET SECTOR 




MMEXEC 


291 


DIFFERENCE OF ONE EXITING 


MMEXEC 


292 


SKIP IF MATCH 




123*4885 MMEXEC132 


3 


JUMP IF NO MATCH 




123*4885 MMEXEC132 


4 


CHECK LENGTHS SAME TOO 


123*4885 MMEXEC132 


5 
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MMEXEC 


295 


THIS DEVICE DOES NOT MATCH RELEASING 


MMEXEC 


296 






MMEXEC 


297 






MMEXEC 


298 






MMEXEC 


299 


SKIP IF UNIT NOT ACTIVE 


MMEXEC 


300 


GET REQUEST STATUS THIS PDT 


MMEXEC 


301 


SKIP IF OPERATION IN 


PROGRESS 


MMEXEC 


302 


SAVE NEW PDT ADDRESS 




MMEXEC 


303 


RESTORE INDEX 




MMEXEC 


304 


BUMP INTERNAL ACTIVE 


STATUS 


MMEXEC 


305 


JUST REACTIVATED, GO 


TO DRIVER 


MMEXEC 


306 


6 CARDS DELETED 




MMEXEC 


307 






MMEXEC 


308 


SAME RESET ADDRESS 




MMEXEC 


309 


— INITIATOR 




MMEXEC 


310 






MMEXEC 


311 


— CONTINUATOR 




MMEXEC 


312 






MMEXEC 


313 


— DIAGNOSTIC TIME ( 


3UT 


MMEXEC 


314 






MMEXEC 


315 






MMEXEC 


316 


DECREMENT COUNTER 




MMEXEC 


317 


ALL SEARCHED 




MMEXEC 


318 


MORE TO SEARCH 




MMEXEC 


319 


INDEX OF NEXT TO EXECUTE 


MMEXEC 


320 






MMEXEC 
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MMEXEC 
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MMEXEC 
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MMEXEC 
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MMEXEC 


325 


NONE QUED, EXIT 
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MMEXEC 


327 






MMEXEC 


328 


CLEAR QUEUE SLOT 




MMEXEC 


329 






MMEXEC 


330 


UPDATE 




MMEXEC 


331 


GET BUFFER NUMBER 
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333 






MMEXEC 
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MMEXEC 


337 


GET INITIAL INDEX 
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POOFF 


0117 


SAN 


OCCPID 


P0100 


COFF 


LDA- 


I 


P0101 


6AA0 


STA* 


QUE.Q 


P0102 


C10E 


LDA- 


MASSEC.I 


P0103 


6AA6 


STA* 


QUEMM.Q 


P0104 


5823 


RTJ* 


BUMPQ 


P0105 


4895 


STQ* 


NXTQUE 


P0106 


14EA 


JMP- 


(ADISP) 


P0107 


CAA2 


OCCPID LDA* 


QUEMM.Q 


P0108 


B10E 


EOR- 


MASSEC.I 


P0109 


0111 


SAN 


BMPQUE 


P01PA 


14EA 


JMP- 


(ADISP) 


P010B 


581C 


BMPQUE RTJ* 


BUMPQ 


P010C 


B88F 


EOR* 


NXTXCT 


poion 


0101 


SAZ 


NOQUE 


P010E 


18EF 


JMP* 


L00P3 



P011E 
P011F 
P0121 
PO] 22 
P0124 
P0125 

P0127 
P0128 
PP129 
P012A 
P012B 
PP12C 



UNOCCUPIED QUE SLOT, AND NU PREVIOUS ENTRY 

PUT THIS ONE IN IT 

SAVE MASS MEMORY ADDRESS 



EXIT 

DIFFERENCE OF MM ADDRESSES 

NOT SAME, BUT 

THIS DRIVER ALREADY QUED, EXIT 

TEST ALL SLOTS CHECKED 
ALL CHECKED 



SHOULD WAIT IN SCHEDULE STACK 



P010F 


EOFF 


NOQUE LDQ- 


I 


PASS PDT ADDRESS 


PP110 


54F4 


DOWNLK RTJ- 


(AMONI) 




P01U 


5202 


NUM 


$5202 


SCHEDULE LEVEL 2 WAIT 


P0112 


0114 P 


ADC 


SCRCHQ 




P0113 


14EA 


JMP- 


(ADISP) 




P0114 


40FF 


SCRCHQ STQ- 


I 


LEVEL 2 WAITING FOR QUE SLOT 


P0H5 


E885 


LDQ* 


NXTQUE 




PP116 


CA8B 


LDA* 


QUE.Q 




P0117 


EOFF 


LDQ- 


I 


RESTORE PDT 


P0118 


0101 


SAZ 


BACKUP 


OPEN BACK 


P0119 


18F6 


JMP* 


DOWNLK 


RESCHEDULE 


P011A 


1800 FEE4 


BACKUP JMP 


MASDRV 


QUEUE OPEN, GO QUE THIS DRIVER 


P011C 


40FF 


STQ- 


I 


PDT TO I 


P011D 


18DF 


JMP* 


QUE IT 


GO QUE IT 



START UP DRIVER 

Q = PDT ADDR. 

A = ADDRESS OF DRIVER 



0500 

CAOO FF7F 

6805 

EAOO FF6E 

0400 

1400 0000 

0126 P 
0000 
0814 
0901 
A005 
0822 
1CFA 



STRTUP UN 
LDA 
STA* 
LDQ 
EIN 
JMP+ 
GOADR EQU 
BUMPQ MUM 
TRQ 
INA 
AND- 
TRA 
JMP* 





BUFSTR.Q 

GOADR 

BUFPDT.Q 





GOADR (*-l) 



A 

1 

LPMSK+2 

Q 
(BUMPQ) 



GET STARTING ADDRESS 
GET PDT 



BUMP INDEX 



00.20.46. 
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S ENTRY 
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349 
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MMEXEC 


358 
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363 
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MMEXEC 


377 
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P0I2D 


0000 




CHECKL 


NUM 





SUBROUTINE ENTRY 


P012E 


CPOO 


FF6A 




LDA 


BUFADR+1 


END ADDRESS 


P0I30 


9800 


FF67 




SUB 


BUFAOR 


= TOTAL AVAIL 


POI32 


<hod 






SUB- 


MASLGN.I 


MINUS LENGTH THIS DRIVER 


P0133 


0122 






SAP 


WILFIT 


WILL FIT SOME TIME 


POI34 


1P00 


FF46 




JMP 


BAOXFR+1 


REPORT ERROR AS MM FAIL 


P0136 


B10D 




WILFIT ADD- 


MASLGN.I 


TOTAL AVAILABLE 


P0137 


EAOO 


FF59 




LOO 


BUFPDT.Q 


PDT ADDRESS OF CURRENT OCCUPANT 


P0139 


9B1B 






SUB* 


NUSEO 


MINUS WORDS IN USE 


P013A 


0141 






SQZ 


LABEL1 


NOT ASSIGNED TO A DRIVER 


P013B 


P20D 






ADD- 


MASLGN.Q 


PLUS WORDS USED BY OCCUPANT 


P013C 


9100 




LABEL1 


SUB- 


MASLGN.I 


MINUS WORDS FOR NEW DRIVER 


P013D 


0135 






SAM 


NOTNUF 




P0I3E 


C816 






LDA* 


NUSED 


TOTAL USED 


P013F 


0141 






SQZ 


LABEL2 


BUFFER NOT USED 


P0140 


9200 






SUB- 


MASLGN.Q 


MINUS CURRENT LENGTH 


P0141 


81 OD 




LABEL2 ADD- 


MASLGN.I 


PLUS NEW LENGTH 


P0142 


1P0E 






JMP* 


GOTNUF 


NEW NUSED 


P0143 


0A01 




NOTNUF 


ENA 


1 


NEW DRIVER BIGGER THAN OLD, OVERLAP 


P0144 


B800 


FF50 




EOR 


BUFNUM 


TEST OTHER DRIVER 


P0146 


0822 






TRA 


Q 




P0147 


CAOO 


FF47 




LDA 


BFSTAT.Q 


GET ACTIVE STATUS 


P0I49 


0101 






SAZ 


LABEL3 


INACTIVE 


P0I4A 


1PB2 






JMP* 


QUE IT 


ACTIVE, NEW ONE NO FIT NOW 


P014B 


6A00 


FF47 


LABEL3 


STA 


OCUPNT.Q 


FITS, WILL OVERLAY OTHER PARTIALLY 


P014D 


6A00 


FF43 




STA 


BUFPOT.Q 




P014F 


CI 00 






LDA- 


MASLGN.I 


NEW DRIVER LENGTH TOTAL USED 


P0150 


6804 




GOTNUF 


STA* 


NUSED 




P0I51 


EPOO 


FF43 




LOQ 


BUFNUM 


RESTORE ORIGINAL INDEX 


P0153 


1C09 






JMP* 


(CHECKL) 


RETURN 


P0154 


0000 




NUSED 


NUM 


- 


NUMBER OF WORDS IN USE 



P0155 


0500 


MASCON UN 


P0156 


40FF 


STQ- I 


PO:i57 


4831 


STQ* LASTPT 


P0158 


5800 FFOO 


RTJ FINDIT 


P015A 


0500 


UN 


P015B 


0171 


SQM NOTING 


P015C 


181F 


JMP* OK INI 
* NOT IN CORE 



THIS ROUTINE RESPONDS TO INTERRUPTS 

FOR DRIVERS WHICH ARE NOT CURRENTLY IN -CORE 

THIS MUST BE CONSIDERED A GHOST INTERRUPT SITUATION 

OR THE INTERRUPT RESPONSE IS USING A PDT 
ADDRESS OTHER THAN THE ACTIVE ONE 



UN FOR FINDIT 

PDT TO I 

DIAG SAVE 

DETERMINE IF DRIVER IN CORE 

UN AGAIN, FINDIT DOES EIN 



IN, BUT PDT MUST BE OTHER THAN INT RESPONSE 
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P015P 
P015E 
P015F 
POlfiO 
P0161 
P0162 
P0163 
P0164 
P0165 
P0166 
P0167 
P0168 
P0]fi9 
P016A 
P016B 
P016C 
P016D 
P016E 
PM6F 
P0170 
P0171 
P0172 
P01 7? 
P0174 
P0175 
P0176 
P0177 
P017P 
P0179 
P017A 



P017B 
P017D 
P017E 
P017F 
P0181 
P01P2 
P01P3 
P0184 
P0185 

P01P7 
P01P8 



0400 
El 07 
C01D 
OPB? 
F02E 
0201 
OB 00 
E107 
0A02 
0301 
OBOO 
D81F 
C108 
0F44 
A009 
09BB 

one 

6133 
0C06 
F107 
0301 
OBOO 
E118 
4 OFF 
6133 
0C06 
F107 
0301 
OBOO 
14EA 



CAOO 
0111 
18DE 
EAOO 
C202 
6804 
EOFF 
0400 
1400 

0000 
0000 



NOT INC EQU N0TINC(*) 
EIN 
LDO- EWES, I 
LDA- $1D 
LAQ Q 
ADQ- $2E 
INP 1 
NOP 
LDQ- EWES, I 
ENA 2 
OUT 1 
NOP 
RAO* INTCNT 
LDA- EREQST.I 
ARS 4 

AND- LPMSK+6 
INA -T18335 
SAN NOTFDO 
STA- SECNUM.I 
ENQ SELCTF 
ADO- EWES, I 
OUT 1 
NOP 

LDQ- FDDPTH.I 
STQ- I 

STA- SECNUM.I 
SELCTF 
EWES, I 
1 



ENQ 
ADQ 
OUT 
NOP 
NOTFDD JMP 



(ADISP) 



FF13 



FF11 



0000 
0186 P 



0KIN1 LDA BFSTAT,Q 

SAN 1 

JMP* NOT INC 

LDQ BUFPDT.Q 

LDA- 2,Q 

STA* ADDCON 

LDQ- I 

EIN 

JMP+ 
ADDCON EQU ADDCON (*- 
INTCNT NUM 
LASTPT NUM 



1) 



GET EQUIP CODE 

MASK CONVERTER $F100 

ADD $800 

NMA AND TERMINATE IF BUFFERED 

GET EQUIP CODE 

ACK INTERRUPT 

BUMP COUNT 

CHECK TYPE CODE FOR FDD DEVICE 



SKIP IF NOT FDD 

INDICATE WORD-ADDR. BUFFER NOT GOOD 132*5305 

SELECT UNIT AND EOP AND CLEAR INTERRUPT 

ADD EQUIPMENT CODE FOR UNIT 



REPEAT FOR OTHER UNIT IF IT EXIST 

INDICATE WORD-ADDR. BUFFER NOT GOOD 132*5305 



IS ACTIVE 

A GHOST TREAT AS NOT IN CORE 
USE PDT ADDRESS LAST USED 
GET CONTINUATOR 

RESTORE PDT 

JMP TO CURRENTLY DEFINED CONTINUATOR 

COUNTER OF GI 

LAST PDT ADDRESS OF GI 



pnipo 


4 POP 


MASERR STQ* LASTER 


P01PA 


E205 


LDQ- ELU.Q 


P01PB 


0FA6 


OLS 6 


P01PC 


P806 


RAO* ERRCNT 



THIS ROUTINE RESPONDS TO A DIAGNOSTIC TIMEOUT 
OF A DRIVER WHICH IS NOT RESIDENT IN THE BUFFER 



ERROR CODE OF 
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MMEXEC 


453 
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MMEXEC 


462 


MMEXEC 


463 


MMEXEC 


464 


MMEXEC 


465 


MMEXEC 


466 


MMEXEC 


467 


MMEXEC 


468 


MMEXEC132 


6 


MMEXEC 


469 


MMEXEC 


470 


MMEXEC 


471 


MMEXEC 


472 


MMEXEC 


473 


MMEXEC 


474 


MMEXEC 132 


7 


MMEXEC 


475 


MMEXEC 


476 


MMEXEC 


477 


MMEXEC 


478 


MMEXEC 


479 


MMEXEC 


481 


MMEXEC 


482 


MMEXEC 


483 


MMEXEC 


484 


MMEXEC 


485 


MMEXEC 


486 


MMEXEC 


487 


MMEXEC 


488 


MMEXEC 


489 


MMEXEC 


490 


MMEXEC '• 


491 


MMEXEC 


492 


MMEXEC 


494 


MMEXEC 


495 


MMEXEC 


496 


MMEXEC 


497 


MMEXEC 


499 


MMEXEC 


500 


MMEXEC 


501 


MMEXEC 


502 
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P01PD 


5400 


008B X RTJ+ LOG 


GO LOG ERROR 


MMEXEC 


503 


POiPF 


1400 


008E X JMP+ ALTDEV 




MMEXEC 


504 


P0191 


0000 


LASTER NUM 


PDT ADDRESS OF LAST TIMEOUT 


MMEXEC 


505 


P019? 


0000 


ERRCNT NUM 


COUNT OF TIMEOUT ERRORS 


MMEXEC 


506 


P0193 




END 

66743B STORAGE USED 
6400 ASSEMBLY 


511 STATEMENTS 112 SYMBOLS 
3.220 SECONDS 368 REFERENCES 


MMEXEC 


507 



1 



1700 ASSEMBLY OF MMEXEC 
COMPLETE REFERENCE MAP. 



APPCON 
APISP 

AFNR 

ALPONE 

ALLCMK 

AL001A 

ALTOEV 

AMONI 

BACKUP 

BADXFR 

BFSTAT 

BMPQIIE 

BUFADR 

BUFF 

BUFFE 

BUFNUM 

BUFPDT 

BIIFSTR 

BUMPO 

CHECKL 

DONRES 

OOWNLK 

ORVLVL 

ELU 

ERCOOE 

ERFOST 

ERRCNT 

ESTAT1 

EWES 

EXIT 

EXTFNO 

FDOPTH 

FINPIT 

OOAPR 

GOTNUF 

GOTO IT 

G0T1 

I 



IN 

INCRMT 

INTCNT 

LABEL1 

LAREL2 

LABFL3 

LASTER 

I AS IP T 

LEVI. IT 

LFVLRT 

LOG 

L0G1A 

L00P1 

LOOP? 



01 P6 
OOEA 

00B5 
00C8 
0066 
00C9 
0190 
00F4 
011A 
007B 
0090 

01 OB 
0099 
OOAO 
009A 
0096 
0092 

OOAO 
01?7 
01 2D 
OOED 
0110 
001 P 
0005 
0010 
0008 
0192 
0009 
0007 
001A 
OOfiO 
0048 
00 FA 
0126 
0150 
0011 
0026 
OOFF 



OOOF 
OOOE 
0187 
01 3C 
0141 
0J4B 
0191 
0188 
0068 
006F 
018E 
00C9 
0050 
OOCA 



ABSOLUTE 
ABSOLUTE 



"EXTERNAL" 
ABSOLUTE 



EXTERNAL' 
"EXTERNAL * 



ABSOLUTE 
ABSOLUTE 
ABSOLUTE 

ABSOLUTE 
ABSOLUTE 



ABSOLUTE 



-SYSTEM- 



*EXTERNAL* 
♦EXTERNAL* 



11/42 

2/34 

4/27 

2/33 Q 

7/54 

5/51 

7/60 Q 

2/54 X 

2/36 Q 

9/34 

6/16 

4/15 

4/18 

9/13 

4/47 

2/56 X 

2/56 X 

4/29 

4/20 

4/40 

4/48 

8/47 

4/36 

8/35 

9/24 L 

4/23 

3/05 

3/16 Q 

3/07 
11/59 

3/08 Q 

3/06 Q 

4/16 

5/47 L 

3/17 

4/12 

9/46 
10/25 

4/19 L 

4/31 

4/04 

4/11 

4/19 

4/18 L 

4/49 
11/16 
10/17 
10/22 
10/30 
11/56 
10/53 

4/05 

6/07 

2/55 X 

2/54 X 

5/44 L 

8/04 L 



11/46 Q 

5/2? 

7/50 

6/28 

7/57 

5/53 L 

8/05 

6/40 

4/24 

9/36 L 

6/22 L 

4/30 

4/33 

9/15 L 

7/09 L 

7/09 

7/10 

5/36 

6/18 

6/23 

7/20 L 

9/08 
10/08 L 

8/37 L 

9/35 

4/25 L 

6/33 

6/35 
11/17 
12/06 L 

6/30 
11/06 

4/27 L 

5/54 
11/27 

5/41 L 

9/50 Q 
10/35 L 

7/58 

4/34 

4/21 

4/39 

4/45 

6/21 

7/17 
11/47 
10/19 
10/24 
10/32 
12/05 
11/48 

5/59 

6/09 

6/37 

7/59 

5/52 

P/36 
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8/43 
9/10 

7/59 L 



12/04 
4/57 

10/13 
4/38 
6/20 

10/09 
7/20 



9/14 
9/27 



5/10 



11/34 



6/38 



6/27 7/52 

6/53 L 7/56 

10/10 



9/24 



8/22 11/37 
10/29 



5/47 7/04 L 8/40 

6/56 L 10/15 11/40 

9/47 10/33 
9/45 

9/15 9/51 L 9/56 
10/37 



8/16 11/57 



6/32 
11/12 11/24 11/31 



5/49 7/46 10/54 



4/36 L 8/50 

5/19 6/24 7/48 

6/04 7/31 8/20 

6/19 7/45 8/44 



8/49 10/27 10/36 



9/04 9/33 11/28 
9/23 9/37 11/43 
9/30 10/52 



6/08 
11/60 



6/10 



7/38 
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L00P3 


OOFE 




8/59 L 


9/18 










LPMSK 


0003 


ABSOLUTE 


2/31 Q 


3/19 


9/54 


11/19 






MASCON 


0155 




2/44 E 


8/28 


10/51 L 








MASDRV 


0000 




2/43 E 


4/04 L 


8/26 


9/36 






MASERR 


0189 




2/45 E 


8/30 


11/56 L 








MASEXT 


00B3 




2/43 E 


6/46 


7/38 L 


7/39 






MASLGN 


OOOD 


ABSOLUTE 


3/09 Q 


8/10 


10/11 


10/18 


10/23 


10/34 








4/43 


8/11 


10/14 


10/19 


10/24 




MASSEC 


OPOE 


ABSOLUTE 


3/10 Q 


4/41 


5/45 


8/06 


8/07 


9/06 


MAS300 


0PB3 




2/47 E 


7/39 Q 










MM1 


0044 




4/55 


5/08 L 










MM? 


004E 




5/18 L 












MSKRNM 


PPP3 


ABSOLUTE 


3/19 


5/34 










NOASfN 


POPE 




8/17 


8/19 


8/25 








NOFINP 


PPRF 




7/49 


7/51 L 










NOOUE 


01 PF 




9/17 


Q/23 L 










NPSAME 


OPE 8 




8/09 


8/13 


8/33 L 








NOTFPD 


P17A 




11/21 


11/34 L 










NOTHIS 


0063 




5/46 


5/50 L 










NOTIN 


0P1B 




4/14 


4/28 L 










NOT INC 


P15P 




10/56 


11/04 Q 


11/39 








NOTNIIF 


0143 




10/20 


10/26 L 










NIISEO 


0154 




10/16 


10/21 


10/35 


10/38 L 






NXTBIIF 


0P9P 




4/28 


5/21 


7/15 L 


7/53 


8/21 


8/42 


NXTQUE 


0P9B 




7/12 L 


9/09 


9/31 








NXTXCT 


009C 




7/13 L 


8/37 


8/48 


8/58 


9/16 




Nl 


0041 




4/53 


5/05 L 










N2 


004B 




5/15 L 












OCCPID 


0107 




8/60 


9/11 L 










OCUPNT 


0094 




4/42 


4/54 


5/44 


6/26 


6/59 B 


10/32 


OK IN 


OOCO 




7/47 


7/52 L 










OK INI 


01 7B 




10/57 


11/37 L 










0KIN2 


00C6 




7/58 L 


8/23 










ONEBIT 


0023 


ABSOLUTE 


2/32 Q 


6/31 










ONEWAT 


00F5 




8/39 


8/44 L 










OPLVL 


0008 


ABSOLUTE 


3/18 Q 


4/08 


4/58 


5/11 


6/06 


6/39 


PRILVL 


POEF 


ABSOLUTE 


2/35 


6/05 










QUE 


PPA2 




7/23 B 


8/38 


8/46 


8/59 


9/05 


9/32 


QUE IT 


OPFP 




4/35 


8/58 L 


9/38 


10/31 






OIIFMM 


OPAA' 




7/25 B 


9/07 


9/11 








REAP! 


PP3C 




4/56 


4/57 L 


7/17 








REAR? 


0046 




5/10 L 


7/17 










RELRYO 


PPB? 




2/48 E 


7/31 L 










ROCMP 


PP71 




4/59 


6/13 L 










RICMP 


PP73 




5/1? 


► 6/14 


6/15 L 








SAMI.V1 


PP07 




4/06 


4/09 


4/11 L 








SAMLV? 


P0B9 




7/40 


7/43 


7/45 L 








SCRCIIQ 


0114 




9/26 


9/30 L 










SECNUM 


0033 


ABSOLUTE 


3/20 


11/22 


11/29 








SELCTF 


0006 


ABSOLUTE 


3/21 Q 


11/23 


11/30 








SIGN 


0097 




4/46 


7/06 L 










STAR1 


0042 




4/50 


5/06 L 










STAR2 


PP4C 




5/16 L 












STRTIIP 


011E 




4/26 


9/44 L 










SWICIIH 


004 F 




5/09 


5/19 L 










SWITCH 


0053 




4/32 


5/20 


5/31 L 


5/37 


5/50 


8/41 


TAGY 


0014 




4/17 


4/21 L 











9/12 



7/42 
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TA0000 


O0P1 




8/08 


8/10 L 


TA0001 


0005 




8/12 


8/14 Q 


TEMP 


0037 




4/44 


4/52 


T1P335 


0044 


ABSOLUTE 


3/22 Q 


11/20 


WILFIT 


013P 




10/1? 


10/14 L 



8/04 



8/33 



o 



o 
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CLASS - VER 3.0 08/21/80 00.20.47. 



PAGE 



ADDRESS 

0000 
0053 



LENGTH 
0053 



BINARY CONTROL CARDS. 

NAM TRVEC DECK-ID M14 MSOS 5.0 
END 



SUMMARY 



ENTRY POINT NAMES AND ADDRESSES. 



AUTFA — 


0011 


IUP 


-- OOOE 


LOAD IN 


— 001E 


SWTCH 


— 001D 


AUTFB — 


0012 


JBCFGZ 


— 002fi 


LOCF 


— 001B 


TRANV 


— 0000 


AUTF9 — 


0010 


JBCNCL 


-- 0020 


LPTRS 


-- 001C 


TRNVEC 


— 0004 


BATCLU — 


OOOD 


JBCNFG 


— 0036 


MIBUF 


— 0003 


TRVEC 


-- 0000 


C0MPV4 — 


0044 


JBPROE 


-- 0001 


NSTACK 


-- 0005 


UNPIO 


— OOOA 


ERRMSG — 


0002 


JKIN 


-- OOIF 


PARBV4 


— 0008 


1INPI0F 


-- OOOC 


FILE1 — 


0017 


JOBIND 


-- 0009 


PRORET 


— 0015 


UNPT1M 


— OOOB 


FILE2 — 


0018 


JPRETN 


-- 0038 


RECOV 


-- 0006 


VINPV4 


— 0014 


FILE3 — 


0019 


JPRET1 


— 0037 


RELS1A 


— 0007 






FILE4 — 


001A 


JPSWT 


-- 0016 


SCHERR 


-- 003F 






INPTV4 -- 


OOOF 


LIBET 


— 0005 


SPASW 


— 0013 






EXTERNAL SYMBOLS. 
















PROTEC 
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0000 P 
0000 P 



OOOC 
0008 
0044 
OOOF 
003F 
0009 
0005 
0000 
OOOA 
OOOE 
0013 
0005 
0017 
0018 
0019 
001A 
0006 
001B 
001 C 

ooi n 

001E 
POOR 
0014 
OOPP 
0015 
0003 
0016 
0001 
0004 
0007 
0002 
0010 
0011 
0012 
001F 
0026 

0005 
00B9 
0002 
0023 



55 



POOOO 
P0001 
P0002 

poro3 



18FF 
0000 
0000 
0000 



NAM TRVEC DECK- ID M14 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



TRANSFER VECTOR 
EMT TRVEC 
EQU TRVEC (*) 



ENT UNPIOF 

ENT PARBV4 

ENT C0MPV4 

ENT INPTV4 

ENT SCHERR 

ENT JOBIND 

ENT NSTACK 

ENT TRANV 

ENT UNPIO 
ENT 1UP 

ENT SPASW 
ENT LIBET 
ENT FILE1 
ENT FILE2 
ENT FILE3.FILE4 



SCHEDULER ERROR ENTRY 



ENT 
ENT 



RECOV 
LOCF.LPTRS 



ENT SWTCH 
ENT LOADIN 

ENT UNPTIM 

ENT VINPV4 

ENT BATCLU 

ENT PRORET 

ENT MIBUF 

ENT JPSWT 

ENT JBPROE 

ENT TRNVEC 

ENT RELS1A 

ENT ERRMSG 

ENT AUTF9 

ENT AUTFA 

ENT AUTFB 

ENT JKIN 

ENT JBCFGZ 

EXT PROTEC 

EQU NSTACK(5) 

EQU AREQXT($B9) 

EQU LPMSK($2) 

EQU 0NEBIT($23) 



BATCH CONTROL STATEMENT LU 
RETURN LOC TO JPLOAD FOR PROTEC 



TRANV NUM $18FF 

JRPROE NUM $0 

ERRMSG NUM 

MIBUF NUM 



JOB ABORT FLAG 



MAX NO. OF STACKED REQUESTS 



LOC. IN JOBENT TO PROCESS JOB PROC. 
ABS. ADOR. OF ERRM IN JOBENT 
ADDRESS OF MUMP BUFFER IN JOBENT 



SUMMARY-116 TRVEC132 


1 


TRVEC 


3 


TRVEC 


4 


TRVEC 


5 


TRVEC 


7 


TRVEC 


8 


TRVEC 


9 


TRVEC 


12 


TRVEC 


13 


TRVEC 


14 


TRVEC 


15 


**MSOS 4.0 TRVEC 


16 


TRVEC 


17 


TRVEC 


18 


TRVEC 


19 


TRVEC 


20 


TRVEC 


21 


TRVEC 


22 


TRVEC 


23 


TRVEC 


24 


TRVEC 


25 


TRVEC 


26 


TRVEC 


27 


TRVEC 


28 


TRVEC 


29 


TRVEC 


30 


TRVEC 


31 


**MSOS 4.0 TRVEC 


32 


116*4366 TRVEC132 


2 


TRVEC 


33 


TRVEC 


34 


TRVEC 


35 


TRVEC 


36 


TRVEC 


37 


TRVEC 


38 


TRVEC 


39 


TRVEC 


40 


TRVEC 


41 


TRVEC 


42 


TRVEC 


43 


TRVEC 


44 


TRVEC 


45 


TRVEC 


46 


**MSOS 4.0 TRVEC 


47 


**MS0S 4.0 TRVEC 


48 


**MSOS 4.0 TRVEC 


49 


TRVEC 


51 


MODULES TRVEC 


52 


TRVEC 


53 


TRVEC 


54 
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PACE 



P0004 


0000 


TRNVEC NUM 


$0 


P0005 


0000 


LIBET NUM 


$0000 


P0006 


7FFF 


RECOV. NUM 


$7FFF 


P0007 


0000 


RELS1A NUM 





P0008 


0000 


PARBV4 NUM 






ABS. ADDR. OF TRANTA BUFFER IN JOBENT TRVEC 55 

ABS. ADDR. IN JOBENT THAT SCHEDULES LIBEDT. TRVEC 56 

LOC IN JOBENT TO SCHED. RECOVR TRVEC 57 

LOC IN JOBENT TO RELEASE SPECIFIED FILE TRVEC 58 

PARAMETER BUFFER IN JOBENT FOR FILES TRVEC 59 



10 



IF 



?0 



25 



30 



35 



40 



45 



50 



5* 



*** ANY ENTRIES TO TRVEC MUST BE MADE FOLLOWING THIS STATEMENT, TRVEC 
*** AS THE PRECEDING ENTRIES ARE PART OF A TABLE TRANSFER FROM JOBENT. TRVEC 



a**********************************-************************************ 



P0009 
POOOA 



P001E 



P001F 



0000 
0000 



POOOB 


0000 


POOOC 


0000 


POOOD 


0000 


POOOE 


1PF9 


POOOF 


0000 


P0010 


0000 


pooh 


0000 


P001? 


0000 


P0013 


0000 


POOH 


0000 


P001 5 


0000 


POOlfi 


0000 


P0017 


0000 


P001 8 


0000 


P0019 


0000 


P001A 


0000 


POO IB 


0000 


P001C 


0000 


P001D 


0000 



0000 



0000 



JOBIND NUM 
UNPIO NUM 




$0 



UNPTIM 


NUM 





UNPIOF 


NUM 





BATCLU 


NUM 





I UP 


NUM 


$1PF9 


INPTV4 


NUM 





AUTF9 


NUM 





AUTFA 


NUM 





AUTFB 


NUM 





SPASW 


NUM 





VINPV4 


NUM 





PRORET 


NUM 


$0 


JPSWT 
* 


NUM 


$0 


* 
FILEl 


NUM 


$0000 


FILE2 


NUM 


$0000 


FILE3 


NUM 


$0000 


FILE4 


NUM 


$0000 


LOCF 


NUM 


$0000 


LPTRS 


NUM 


$0000 


SWTCH 

* 


NUM 


$0000 


* 
LOAD IN 


NUM 


$0000 



SET IF UNPROTECTED I/O IS GOING ON. DOES 
NOT ALLOW JOB TO BE KILLED UNTIL ALL OF THE 
UNPROTECTED I/O REQUESTS ARE COMPLETED. 
AS EACH REQUEST TERMINATES THE COUNT IN UNPIO 
IS DECREMENTED 
NUMBER OF UNPROTECTED TIMER REQ. WAIT 
FLAF FOR BUFFERING 1/0 REQUESTS 
BATCH CONTROL STATEMENT LU,*BATCH,LU 116*4366 
INPUT UNIT POINTER 
BOSS INPUT DEVICE-SET BY SPACE 
STD INPUT AT AUTOLOAD, SET BY RESTART 
STD PUNCH AT AUTOLOAD, SET BY RESTART 
STD LIST AT AUTOLOAD, SET BY RESTART 

INPUT ASSIGNED BY *V **MSOS 4.0 

LOC. IN JOBPRO TO RETURN TO FROM PR0T5 

TEMP LOC. FOR MIINP BUFFER ADDR. OR AN INDEX 
TO THE TRANTA TABLE IN JOBPRO OR A NEG. 
VALUE SET BY JOBENT OR JBKILL 
LOCATION OF JOBENT FILE 
LOCATION OF JOBPRO FILE 
LOC. OF THIRD FILE 
LOC. OF FOURTH FILE 
LOC. OF F IN PROTECT PROCESSOR 
LOC. OF PTRS IN PROTECT PROC. 
SWITCH TO LOCK-OUT JOBPROCESSOR 

WHILE LIBEDIT OR THE RECOVERY 

PROGRAM IS IN OPERATION. 
PROTECT PROCESSOR FLAG TO LET 

LOADER READ AND WRITE ON MASS 

STORAGE. 



JKIN 







0020 P 


ENT 


JBCNCL 






0036 P 


ENT 


JBCNFG 


P0D20 


CPJ6 




JBCNCL LDA* 


JBCNFG 


pno?i 


0116 




SAN 


JKO 


P002? 


0005 




INQ 


5 



NUM 

THIS CORE RESIDENT PROGRAM IS ENTERED 
TO CANCEL JOB PROCESSING. IT SCHEDULES 
THE MM RESIDENT JBKILL MODULE THEN SETS 
THE JBCNFG NOT ZERO WHICH TELLS THE PROTECT 
PROCESSOR TO QUIT HONORING REQUESTS FROM 
UNPROTECTED CORE. 



JOB CANCEL FLAG 

IF JBKILL HAS BEEN SCHEDULED, DONT REDO 



TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC1 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

1RVEC 

TRVEC 

1RVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

1RVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 

TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 

TRVEC 
TRVEC 



TRVEC 
TRVEC 
TRVEC 
TRVEC 
**MSOS 4.0 TRVLC 



32 



61 
62 

64 

66 

67 
68 
69 
70 
71 
72 
73 
3 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 

98 

99 

100 

101 

102 

103 
104 

106 
107 
108 
109 
110 
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15 



20 



25 



30 
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TRVEC 








CLASS - VER 3.0 08/21/80 


00.20.48. 


PAGE 


4 


P0O23 


0153 






SQN 


JK 






TRVEC 


111 


P 0024 


OCFA 






ENQ 


-5 


THE REQUEST TO CANCEL WAS FROM 


**MSOS 4.1 


D TRVEC 


112 


P0025 


1809 






JMP* 


JK1 


T5- D0N"T ABORT JOB 




TRVEC 


113 


PP026 


0000 




JBCFGZ 


APC 





JOB ABORT FLAG 




1RVEC 


114 


P0O27 


CPFE 




JK 


LPA* 


JBCFGZ 


IF A JOB IS ABORTING, DONT REDO 




TRVEC 


115 


P002P 


one 




JKO 


SAN 


JBEXIT 






TRVEC 


116 


P0029 


eppa 






LPQ* 


TRNVEC 






TRVEC 


117 


P002A 


C20C 






LDA- 


12,0 


IF NO JOB IN PROGRESS, DONT ABORT 




TRVEC 


118 


P002R 


01 OP 






SAZ 


JBEXIT 






TRVEC 


119 


PPP2C 


P8F9 






RAO* 


JBCFGZ 


SET JOB ABORT FLAG 




TRVEC 


120 


PP02P 


0P02 






SET 









TRVEC 


121 


P002E 


CRFO 




JK1 


LDA* 


JKIN 






TRVEC 


122 


PP02F 


PPP7 






RAO* 


JBCNFG 


SET JOB CANCEL FLAG NON ZERO 




TRVEC 


123 


PP030 


010A 






SAZ 


JKNIN 




**MSOS 4.1 


D TRVEC 


124 


P0031 


fiP03 






STA* 


JBJK 






TRVEC 


125 


P003? 


54F4 






RTJ- 


($F4) 


SCHEDULE MM PROG AT LVL 




TRVEC 


126 


PP033 


5202 






NUM 


$5202 


TWO 


**MSOS 4.1 


:> TRVEC 


127 


P0034 


0000 




JBJK 


NIJM 






1RVLC 


128 


P0035 


14EA 




JBEXIT 


JMP- 


($EA) 


EXIT TO D1SP 




TRVEC 


129 


P0O36 


0000 




JBCNFG ADC 





JOB CANCEL FLAG 




TRVEC 


130 






0038 P 




ENT 


JPRETN, JPRET1 






TRVEC 


131 






0037 P 
















P0O37 


0000 




JPRET1 


ADC 





SET UP BY T7 AND JPLOAD 




TRVEC 


132 


P0038 


0000 




JPRETN 








JPRETN MUST BE IN PRESET TABLE FOR 


PROTECT 


TRVEC 


133 


P0039 


0500 






UN 





PROCESSOR TO PASS THIS ON TO LOADER 


: REQUESTOR 


TRVEC 


134 


P003A 


1CFC 






JMP* 


(JPRET1) 


GO TO T7 OR JPLOAD 




TRVEC 


• 135 


P003B 


54F4 




JKNIN 


RTJ- 


($F4) 

$2402 






TRVEC 


136 


P003C 


2402 






NUM 






TRVEC 


137 


P003D 


7FFF X 






ADC 


PROTEC 






TRVEC 


138 


P003E 


14EA 






JMP- 


($EA) 




**MSOS 4.1 


[) TRVEC 


139 



o 



o 
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P003F 


C4FF 


P0040 


A011 


P0041 


B03? 


P0042 


64FF 


PP043 


14B9 



P0044 


0B00 


P0045 


0500 


P0046 


0132 


P0047 


0165 


P004P 


1PPP 


P0049 


0173 


P004A 


0852 


P004B 


0834 


P004C 


1805 


P004D 


085? 


P004E 


0834 


P004F 


0121 


P0050 


0804 


P0051 


0400 


P005? 


1CF1 



************************************************************************ 
* 

* SCHEDULER ERROR RETURN TO USER 

* 

********************************************************************* 



SCHERR LDA- 
AND- 
EOR- 
STA- 



(I) 

LPMSK+15 

ONEBIT+15 

(I) 
(AREQXT) 



SET Q 
NEGATIVE 
ON RETURN 
TO USErt 



**MSOS 4.0 
**MSOS 4.0 
**MSOS 4.0 
A Ml SOS 4.0 
**MSOS 4.0 



JMP- 
************************************************************************ 

* ADDRESS COMPATE ROUTINE . " 



DIFFERENCE RETURNED 
A EQUAL 
A SET TO FFFF 



IN A 



PO053 



C0MPV4 NOP 
UN 
SAM 
SQP 
JMP* 

AUPPER SOM 
TCQ 
AAQ 
JMP* 

BTMSAM TCQ 
AAO 
SAP 
SET 
EIN 
JMP* 

*********** 

END 



QBIGR 
ABIGR 



A.GT.Q 
A.EQ.Q 
A.LT.Q 





AUPPER 

BTHSAM 

QBIGR 

BTHSAM 

Q 

A 

ABIGR 

Q 

A 

ABIGR 

A 



(C0MPV4) 
************************************************************* 



A IN UPPER BANK 

BOTH IN LOWER BANK 

A IN LOWER Q IN UPPER 

BOTH IN UPPER BANK 

A IN UPPER Q IN LOWER 

GET DIFFERENCE IN A 



SUBTRACT Q FROM A 
Q IS BIGGER 



1RVEC 
TRVEC 
1RVEC 
TRVEC 
TRVEC 
1RVEC 
TRVEC 
TRVEC 

nm:c 

TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 
TRVEC 



141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 



6101 7B STORAGE USED 
6400 ASSEMBLY 



175 STATEMENTS 
1.093 SECONDS 



55 SYMBOLS 
123 REFERENCES 
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TRVEC 








CLASS - ' 


COMPLETE 


REFERENCE MAP. 










ABIGR 


0051 




5/29 


5/32 


5/34 L 




AREQXT 


00B9 


ABSOLUTE 


2/52 Q 


5/13 






AUPPER 


0049 




5/23 


5/26 L 






AUTFA 


0011 




2/46 E 


3/26 L 






AUTFB 


0012 




2/47 E 


3/27 L 






AUTF9 


0010 




2/45 E 


3/25 L 






RATCLU 


OOOD 




2/37 E 


3/22 L 






BTHSAM 


0040 




5/24 


5/26 


5/30 L 




C0MPV4 


0044 




2/16 E 


5/21 L 


5/35 




ERRMSO 


0002 




2/44 E 


2/58 L 






FILF1 


0017 




2/26 E 


3/34 L 






FILE2 


0018 




2/27 E 


3/35 L 






FILE3 


0019 




2/28 E 


3/36 L 






FILE4 


001A 




2/28 E 


3/37 L 






I 


OOFF 


-SYSTEM- 


F/09 


5/12 






INPTV4 


OOOF 




2/17 E 


3/24 L 






IUP 


OOOE 




2/23 E 


3/23 L 






JBCFOZ 


0026 




2/49 E 


4/06 L 


4/07 


4/12 


JBCNCL 


0020 




3/55 E 


3/57 L 






JBCNFG 


0036 




3/56 E 


3/57 


4/15 


4/22 L 


JBEXIT 


0035 




4/08 


4/11 


4/21 L 




JBJK 


0034 




4/17 


4/20 L 






JBPROE 


0001 




2/41 E 


2/57 L 






JK 


0027 




3/60 


4/07 L 






JKIN 


00 IF 




2/48 E 


3/47 L 


4/14 




JKNIN 


003B 




4/16 


4/29 L 






JKO 


0028 




3/58 


4/08 L 






JK1 


002E 




4/05 


4/14 L 






JOBIND 


0009 




2/19 E 


3/14 L 






JPRETN 


0038 




4/23 E 


4/26 L 






JPRET1 


0037 




4/23 E 


4/25 L 


4/28 




JPSWT 


0016 




2/40 E 


3/31 L 






LIBET 


0005 




2/25 E 


3/04 L 






LOADIN 


001E 




2/34 E 


3/43 L 






LOCF 


001B 




2/31 E 


3/38 L 






LPMSK 


0002 


ABSOLUTE 


2/53 


5/10 






LPTRS 


001C 




2/31 E 


3/3P L 






MIBOF 


0003 




2/39 E 


2/59 L 






NSTACK 


0005 


ABSOLUTE 


2/20 E 


2/51 






ONFBIT 


0023 


ABSOLUTE 


2/54 


5/11 






PARFW4 


OOOP 




2/15 E 


3/07 L 






PRORET 


0015 




2/38 E 


3/30 L 






PROTEC 


0030 


♦EXTERNAL* 


2/50 X 


4/31 






QBIGR 


0050 




5/25 


5/33 L 






RECOV 


0006 




2/30 E 


3/05 L 






RELS1A 


0007 




2/43 E 


3/06 L 






SCHFRR 


003F 




2/18 E 


5/09 L 






SPASW 


0013 




2/24 E 


3/28 L 






SWTCH 


001P 




2/33 E 


3/40 L 






TRANV 


0000 




2/21 E 


2/56 L 






TRNVEC 


0004 




2/42 E 


2/60 L 


4/09 




TRVEC 


0000 




2/10 E 


2/11 






UNPIO 


OOOA 




2/22 E 


3/15 L 






UNPIOF 


OOOC 




2/14 E 


3/21 L 






UNPTIM 


OOOB 




2/35 E 


3/20 1. 






VINPV4 


0014 




2/36 E 


3/29 L 
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AODRESS 

noon 

0112 



LENGTH 
0112 



BINARY CONTROL CARDS. 

NAM JOBENT DECK- ID M64 MSOS 5.0 
END 



SUMMARY 



BLOCKS 



TYPE 



JOBENT PROGRAM* 
FILL LOCAL 
DRV LOCAL 



ADDRESS 



LENGTH 



0000 0112 
001A 0012 
002C 0001 



ENTRY POINT NAMES AND ADDRESSES. 

JBENT — 0000 JBPRO -- 00A7 



MIPBUF — 0008 



EXTERNAL SYMBOLS. 



AFILV4 


INPTV4 


JKIN 


JPCHGE 


JPSWT 


NAMEV4 


SWTCH 


T5 


BATCLU 


IUP 


JLG0V4 


JPFLV4 


JPT13 


NUMLU 


TRANV 


T7 


FILE1 


JBCNFG 


JOBIND 


JPLOAD 


LIBEDT 


RCOVER 


Til 




FILE2 


JCRDV4 


JOBPRO 


JPSTV4 


MIB 


RESTOR 


T3 
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NAM JOBENT DECK- ID M64 MSOS 5.0 
MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY-116 J0BEN1132 1 

JOBENT 3 

JOBENT 4 

JOBENT 5 



10 



15 



20 



25 



30 



35 



40 



45 



50 



0000 P 
00A7 P 
0008 P 



PROGRAM BASE- MSOS 3.0 JOBENT 



* JOB PROCESSOR CONTROL MODULE 
***************************************************** 



ENT JRENT 
ENT JBPRO 
ENT MIPBUF 



**MSOS 4.0 JOBENT 



OOEA 
0022 
00F4 
OOEA 
0046 
OOOA 
0011 
0024 



EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 



EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXT 

EXP 

EXP 

EXP 

EXP 



FILE1.FILE2 

JBCNFG JOB CANCEL FLAG 

MIB 

JOBIND 

SWTCM 

LIBEDT.RCOVER 
JPSWT TEMP. LOC. FOR MIINP BUFFER ADR. OR 
AN INDEX TO THE TRANTA TABLE OR 
A NEG. VALUE SET BY JOBENT OR JBKILL 
J0BPR0,JPL0AD,JPCHGE,JPT13 
JLG0V4,JCRDV4,JPFLV4,NAMEV4 
JPSTV4.AKILV4 
IUP 

INPTV4 

BATCLU (TRVEC) 
NUMLU 
RESTOR 
TRANV 
JKIN 

T3 

T5 

T7 

Til 



EOU DISP($EA) 

EQU ZER0($22) 

EOU AM0NI($F4),ADISP($EA) 



EOU TEN($46) 

EQU HOOFF($A) 

EQU H7FFF($11) 

EQU L(36) 





JOBENT 


10 




JOBENT 


12 




JOBENT 


14 




JOBENT 


15 




JOBENT 


16 




JOBENT 


18 




JOBENT 


19 




JOBENT 


20 




JOBENT 


21 




JOBENT 


22 




JOBENT 


23 




■ JOBENT 


24 




JOBENT 


25 


L 


JOBENT 


26 




JOBENT 


27 


**MSOS 


4.0 JOBENT 


28 


**MSOS 


4.0 JOBENT 


29 


**MSOS 


4.0 JOBENT 


30 


**MSOS 


4.0 JOBENT 


31 


116*- 


5366 J0BENT132 


2 


116* 


4366 J0BENT132 


3 




JOBENT 


32 




JOBENT 


33 




JOBENT 


34 




JOBENT 


35 




JOBENT 


36 




JOBENT 


37 




JOBENT 


38 




JOBENT 


40 




JOBENT 


41 


116* 


4366 J0BENT132 


4 



INPUT BUFFER LENGTH 



116*4366 J0BENT132 5 

116*4366 J0BENT132 6 

**MSOS 4.0 JOBENT 42 

**MSOS 4.0 JOBENT 43 



55 



POOflO 



CPFF 



JBENT NIIM $C8FE 



**** 
**** 
**** 
**** 



D 



ENTRY POINT 

NOTICE - THE INSTRUCTION LDA* 
*-l CAN NOT BE ASSEMBLED 
BECAUSE IT REFERENCES A LOC. 
OUTSIDE THE PROGRAM 

o 



JOBENT 


45 


JOBENT 


46 


JOBENT 


47 


JOBENT 


48 


JOBENT 


49 



n 



o 
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P0P01 


6C75 


P00P2 


683B 


P00P3 


4P78 


P0P04 


1804 


P0005 


4A50 


POPOfi 


2020 


P0007 


2C20 



ERRM 



STA* (Fl) 
STA* ENTTBL 

STQ* SAVBUF 
JMP* BUFFI 
ALF l.JP 
ALF 1, 
ALF 1,, 



STORE LOCATION OF JOBENT FILE 

STORE FWA OF JOBENT IN ENTRY POINT TABLE 



JOBENT 
JOBENT 



SAVE MIINP BUFFER ADDRESS 



**MSOS 4.0 JOBENT 
JOBENT 
**MSOS 4.0 JOBENT 
**MSOS 4.0 JOBENT 
**MSOS 4.0 JOBENT 



*********************************************************************** JOBENT 



50 
51 

53 
54 
55 
56 
57 

59 
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AFTER THE INITIAL PASS THROUGH JOBENT THIS AREA WILL BE 
OVERLAID BY THE MIPBUF BUFFER. 



P0008 


0C08 




P0009 


CA34 




POOOA 


8833 




POOOB 


6600 


7FFF 


POOOD 


OPFE 




POOOE 


0141 




POOOF 


18F9 




P0010 


E0E9 




pooh 


E209 




P0012 


CP65 




P0013 


A011 




POOH 


B011 




P0015 


0111 




P0016 


1819 




P001 7 


CC5F 




P0018 


0977 




P0019 


1814 


0012 


POOIA 




0P12 


P0P2C 




0001 



OUT 



BUFFI ENQ 
LOOP LDA* 
ADD* 
STA 
INQ 
SQZ 
JMP* 
LDQ- 
LDQ- 
LDA* 
AND- 
EOR- 
SAN 
JMP* 
LDA* 
INA 
JMP* 



LENGTH 

ENTTBL, Q 

ENTTBL 

TRANV.Q 

-1 

OUT 

LOOP 

$E9 

9,0 

JB1 

H7FFF 

H7FFF 

1 

BUFF2+2 

(Fl) 

JB1-JBENT 

BUFF2 



LOAD Q WITH THE LENGTH OF ENTRY POINT TABLE 
PICK UP RELATIVE ENTRY POINT ADDRESS 
ADD FWA OF JOBENT 
STORE IN TRVEC 



ADDR OF EXTENDED CORE TABLE 

ADDR OF RCTV IN MONI 

IF THERE IS NO 

T7 MODULE DON"T TRY 



AND LINK 



**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 



**MSOS 4 



JOBENT 
JOBENT 

JOBENT 

JUBENT 

JOBENT 

JOBENT 

JOBENl 

JOBENT 

JOBENT 

JOBENT 

JOBENT 

.0 JOBENT 

,0 JOBENT 

.0 JOBENT 

,0 JOBENT 

.0 JOBENT 

JOBENT 

JOBENT 

.0 JOBENT 



EQU ENDB(*-BUFF1) 
BZS FILL(L-ENPB) 
BZS DRV(l) 



WORD FOR DRIVERS ON SHORT READ 



**MSOS 4.0 JOBENT 
**MSOS 4.0 JOBENT 
**MSOS 4.0 JOBENT 



*********************************************************************** JOBENT 



THIS AREA WILL BE OVERLAID BY THE TRNTBL BUFFER. 



P0P2D 


884 A 


BUFF2 


ADD* JB1 




P002E 


6207 




STA- 7,Q 


LOADER REQUEST 


P002F 


CC47 




LDA* (Fl) 




P0030 


0978 




INA JB2-JBENT 




P0031 


8847 




ADD* JB2 




P0032 


620B 




STA- ll.Q 


CORE REQUEST 


P0033 


CC43 




LDA* (Fl) 




P0034 


0979 


BPS 


INA JB3-JBENT 




P0035 


8844 


RI 


ADD* JB3 




P0036 


6203 


LOADEP 


STA- 3,Q 


STATUS REQUEST 


P0037 


CC3F 




LDA* (Fl) 




P0038 


09 7A 




INA JB4-JBENT 




P0039 


8841 


JFLG 


ADD* JB4 




P003A 


6205 




STA- 5,0 


EXIT REQUEST 



**MSOS 4 



JOBENT 

JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
,0 JOBENT 
JOBENT 



PPP3B 



OAOO 



FNA 



THIS IS THE LAST LOCATION OF TRANTA **MS0S 4.0 JOBENT 
TABLE BUFFER.. NEXT ?2 LOCATIONS **MSOS 4.0 JOBENT 
ARE 3 WORDS--JOB NAMF. 3 WORDS-- **MS0S 4.0 JOBENT 



61 
62 

64 
65 
66 
67 
68 
69 

70 
71 

72 
73 
74 
75 
76 
77 
78 
79 
80 

82 
83 
84 
85 

87 

89 
90 
91 
92 
93 
94 
95 
96 
97 
98 

99 
100 
101 
102 

104 
105 
106 
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15 



P003C 



1P0A 



P003D 


0000 


P003E 


00A7 


P003F 


0005 


P0040 


0008 


P0041 


0020 


POM 2 


00C3 


P0043 


OOOF 


P0044 


00C2 


PO045 


004? 



0008 



JNAME 


JMP* 


BRL 


* 
ENTTBL 


NUM 







ADC 


JBPRO-JBENT 




ADC 


ERRM-JBENT 




ADC 


MIPBUF-JBENT 




ADC 


TRNTBL-JBENT 


FILTAB 


ADC 


LIB-JBENT 




ADC 


RECOVR-JBENT 




ADC 


SAVQ1-JBENT 




ADC 


FILTAB-JBENT 




EQU 


LENGTH(*-ENT 



ACCOUNT NUMBER.. 
BUFFER FOR FILES 



16 WORDS PARAMETER**MSOS 4.0 JOBENT 
**MSOS 4.0 JOBENT 
**MSOS 4.0 JOBENT 



TABLE OF ENTRY POINTS TO JOBENT 
FWA OF JOBENT 

SCHEDULE J P MODULES (JBPTROE) 
J03 J04 ERRORS (ERRMSG) 
LOCAL INPUT BUFFER (MIBUF) 
TRANSFER TABLE ADDRESS (TRNVEC) 
SCHEDULE LIBEDT 
SCHEDULE RCOVER (RECOV) 
INDEX PASSED TO J. P. POUTINES 
FILE PARAMETER TABLE (PARBV4) 
3L-1) 



**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 
**MSOS 

**MSOS 
**MS0S 



4.0 JOBENT 
4.0 JOBENT 
4.0 JOBENT 
4.0 JOBENT 
4.0 JOBENT 
4.0 JOBENT 
4.0 JOBENT 
4.0 JOBENT 
JOBENT 

4.0 JOBENT 
4.0 JOBENT 



107 
108 
109 

111 
112 
113 
114 
115 
116 
117 

118 
119 

120 
121 
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*********************************************************************** JOBENT 



124 



P00A6 


6PEI) 


BRL 


STA* 


BPS 


CLEAR THESE THREE LOCATIONS IN WHAT 


**MSOS 4.0 JOBENT 


126 


P0047 


6PED - 




STA* 


RI 


BE THE TRNTBL BUFFER BEFORE SCHEDULING JOBENT 


127 


P0048 


68ED 




STA* 


LOADEP 


JOBPRO 


JOBENT 


128 


POO'19 


6PEF 




STA* 


JFLG 




**MSOS 4.0 JOBENT 


129 


POOflA 


0P04 




SET 


A 


SET FIRST WORD TO INDICATE NO 


**MSOS 4.0 JOBENT 


130 


POOflB 


68F0 




STA* 


JNAME 


JOB NAME YET 


**MSOS 4.0 JOBENT 


131 


P004C 


E82F 




LDQ* 


SAVBUF 


PICK UP MIINP BUFFER ADDRESS 


JOBENT 


132 


P004P 


4C73 




STQ* 


(JBST) 


SAVE INPUT BUFFER ADDRESS IN TRVEC 


61*1295 JOBENT 


133 


P004E 


40FF 




STQ- 


I 


SAVE BUFFER ADDRESS IN I REG. 


JOBENT 


134 


P004F 


0C23 




ENQ 


L-l 




**MSOS 4.0 JOBENT 


135 


P0050 


C6FF 


MVBUF 


LDA- 


(l).Q* 


TRANSFER MIINP BUFFER TO BUFFER IN JOBENT JOBENT 


136 


P0051 


6AB6 




STA* 


MIPBUF.Q 


STORE IN MIPBUF LOCAL 


JOBENT 


137 


P0052 


ODFE 




INQ 


-1 




JOBENT 


138 


P0053 


0171 




SQM 


1 




JOBENT 


139 


P0054 


18FB 




JMP* 


MVBUF 




JOBENT 


140 






* LOAD AND 1 


GO SECTOR 


NUMBER 


JOBENT 


141 


P0055 


0A01 




ENA 


1 




JOBENT 


142 


P0056 


60E4 




STA- 


$E4 




JOBENT 


143 


P0057 


C400 7FFF X 




LDA 


INPTV4 


RESET CONTROL INPUT DEVICE 


**MSOS 4.0 JOBENT 


145 


P0059 


6400 7FFF X 




STA 


IUP 




**MSOS 4.0 JOBENT 


146 


P0P5B 


6400 7FFF X 


ABATCL 


STA+ 


BATCLU 


SET BATCH CONTROL STATEMENT LU = SYS. 116*4366 J0BENT132 


7 






* 






CONTROL LU 


116*4366 J0BENT132 


8 


P005D 


C103 




LDA- 


3,1 




116*4366 J0BENT132 


9 


P005E 


0900 




INA 







116*4366 J0BENT132 


10 


P0P5F 


0111 




SAN 


J0B070 


SENSE LU SPECIFIED 


116*4366 J0BENT132 


11 


P0060 


1P41 




JMP* 


J0B130 


GO PROCESS *BATCII 


116*4366 J0BENT132 


12 


POOH 


C105 


J0B070 


LDA- 


5,1 




116*4366 J0BENT132 


13 


P006? 


E104 




LDO- 


4,1 




116*4366 J0BENT132 


14 


POOP 3 


0F6P 




LRS 


8 




116*4366 J0BENT132 


15 


P0064 


0900 




INA 







116*4366 J0BENT132 


16 


POOPS 


0101 




SAZ 


JOBOPO 


SENSE 2 DIGITS OR LESS 


116*4366 JOBENT132 


17 


P0066 


1P2A 




JMP* 


JP05ER 




116*4366 JOBENT132 


18 


P0067 


0P14 


JOBOPO TRQ 


A 
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19 


P0068 


0«00 




INA 





(PREVIOUS SIGN EXTENSION WILL RESULT 116*4366 J0BENT132 


20 






* 






IN $FFFF 


116*4366 J0BENT132 


21 


P0069 


0116 




SAN 


J0B0P2 


SENSE 2 DIGITS 


116*4366 J0BENT132 


22 


POOfiA 


E103 




LDQ- 


3,1 




116*4366 J0BEN1132 


23 



( ) 



c 



o 
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P006B 


OFfiP 


POOfiC 


0F4P 


PPP6P 


BOOO 


PPP6F 


1804 


P0070 


OFfiP 


P0071 


E103 


P0072 


OFfiP 


POO 73 


PPD3 


P0074 


0147 


P0075 


1P1B 


PP076 


7FFF X 


P0077 


7FFF X 


P007P 


7FFF X 


P0079 


7FFF X 


P007A 


7FFF X 


P007B 


0000 


P007C 


9P0P 


P007E 


OCOO 


P007F 


3000 


P0P81 


481F 


P0082 


2046 


P00P3 


881D 


P0084 


fiPIC 


P0085 


09FD 


PPP86 


0121 


P00P7 


1P09 


P0088 


9000 


P008A 


0125 


P008B 


CP15 


POOPC 


fi400 


PPPPE 


fiCCP 


PPPPF 


1812 


PPP9P 


54F4 


PPP91 


PPPP 


P0P92 


PP07 


PPP93 


OPPP 


PPP94 


18FC 


P0P95 


0002 


PPP96 


PPPP 


P0097 


14EA 


PP09P 


PP44 


PP099 


64 00 


P009B 


54F4 


P009C 


1901 


P009P 


FF63 


P009E 


4A50 


P009F 


3035 


PPOAO 


0000 


P00A1 


E8D9 


PP0A2 


4PFF 


P00A3 


PC03 


PP0A4 


481E 


P00A5 


CPPE 


PPPA6 


1PP4 


PP0A7 


481B 



3P0P 



(ADJUST FOR 1 DIGITS) 



3030 
0100 



7FFF X 



0P5A X 



7FFF X 



JOBOP? 



J0B084 



Fl 

JB1 

JB2 

JB3 

JB4 

SAVBUF 

J0B090 



SENSE DELIMITER A COMMA 



J0B100 
J0B110 



JPP5ER 
PARMER 



LRS 8 
ARS 8 
EOR =N$3P00 
JMP* J0B084 
LRS 8 
LDO- 3,1 

8 

-$2C 

J0B090 
JMP* JP05ER 
ADC FILE1 

T7 

Til 

T3 

T5 



=N$3030 



=N$100 

TEMPI 

TEN 
ADD* TEMPI 
STA* TEMPI 
INA -2 
SAP J0B110 
JMP* JP05ER 

=XNUMLU 

JP05ER 
LPA* TEMPI 
STA+ IUP 
STA* (ABATCL+1) 
JMP* JOB 130 

ERROR STATEMENT AFTER MI 
RTJ- (AMONI) OUTPUT JP05 ERROR 
NUM SOPPO 
ADC J0B125-PARMER 
ADC 0,$18FC,2 



LRS 
INQ 
SOZ 



ADC 
ADC 
ADC 
ADC 
NUM 
SUB 
ENQ 
DVI 
STQ 
Mill 



SUB 
SAP 



SENSE LU N0T=1(ALL0VAT0R) 



SENSE LU .GT. MAX. 

UPDATE CONTROL STATEMENT LU 
SET BATCH CONTROL STATEMENT LU 



ADC JP05-PARMER 
JMP- (ADISP) 

J0B125 CLR A 

STA+ MIB 
RTJ- (AMONI) 
NUM $1901 
ADC (JBENT-*+l) 

JP05 ALF 2.JP05 

TEMPI NUM 

J0B130 LDQ* SAVBUF 

STQ- I 

ENQ 3 

SJBPRO STQ* SAVQ1 

LDA* JBPADR 

JMP* JBPROP 

JBPRO STO* SAVQ1 



CLEAR MIB TO ALLOW MI 
RELEASE JOBENT 
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J0BENT132 40 

J0BEN1132 41 

J0BENT132 42 

J0BENT132 43 

JOBENT132 44 

J0BENT132 45 

JOBENT 132 46 

J0BENT132 47 

J0BENT132 48 

J0BENT132 49 

J0BENT132 50 

J0BENT132 51 

J0BENT132 52 

J0BENT132 53 

J0BENT132 54 

J0BENT132 55 

J0BENT132 56 

J0BFNT132 57 

J0BENT132 58 

J0BENT132 59 

J0BENT132 60 



J0BENT132 61 

J0BENT132 62 

J0BENT132 63 

J0BENT132 64 

J0BENT132 65 

J0BENT132 66 

J0BENT132 67 

J0BENT132 68 



116*4366 J0BENT132 69 

116*4366 J0BENT132 70 

116*4366 J0BENT132 71 

**MSOS 4.0 JOBENT 147 

JOBENT 148 

SCHEPULE JOBPRO **MSOS 4.0 JOBENT 149 

JOBENT 150 
SAVE INDEX TO PROPER ROUTINE WITHIN THE JOBENT 151 
SCHEDULED MODULE OR AN EXECUTION ADDRESS JOBENT 152 
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15 



P00A8 
P0PA9 


082? 
CA09 


* 

* 


TRA Q 
LDA* TRL.Q 


POOAA 

POOAR 
POOAP 


6806 

5800 0054 
E815 


* 

JRPROO 

* 


STA* SCIIADR 
RELEASE FILES 
RTJ MRELF 
LDQ* SAVOl 


POOAE 
POOAF 
POORO 
P00R1 


54F4 
1200 
0000 
14EA 


SCMED 
SCHADR 


RTJ- ($F4) 
NIIM $1200 
ADC 
JMP- (DISP) 



MOVE INDEX FOR PROPER MODULE TO Q REG. 
Q REG. 0=JPT13, 1=J0BPR0, 2=JPL0AD, 
3=JPCHGE, 4=REST0R, 5=JLG0V4 **MS0S 4.0 
6=JCRDV4, 7=JBFLV4, 8=NAMEC4 **MS0S 4.0 
9=JPSTV4, 10=AFILV4 **MS0S 4.0 

TWO AND THREE 

RELEASE SPECIFIED FILE 

INDEX TO LOC IN SCHEDULED MODULE TO BEGIN 

EXECUTION OR AN EXECUTION ADDRESS. 



5 CARDS DELETED 



116*4366 



JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
J0BENT1 



153 
154 
155 

156 
157 

158 
159 

160 
161 
162 
163 
164 
165 
166 
32 72 



20 



25 



30 



40 



45 



50 



55 



P00B2 


FFFF 


X 




TBL 


ADC 


(JPT13) 


P00B3 


FFFF 


X 




JBPADR 


ADC 


(JOBPRO) 


P00B4 


FFFF 


X 






ADC 


(JPLOAD) 
(JPCHGE) 


P00B5 


FFFF 


X 






ADC 


P00B6 


FFFF 


X 






ADC 


(RESTOR) 


P00B7 


FFFF 


X 






ADC 


(JLG0V4) 


P00B8 


FFFF 


X 






ADC 


(JCRDV4) 
(JPFLV4) 


P00B9 


FFFF 


X 






ADC 


POOBA 


FFFF 


X 






ADC 


(NAMEV4) 


POOBB 


FFFF 


X 






ADC 


(JPSTV4) 


POOBC 


FFFF 


X 






ADC 


(AFILV4) 


POOFD 


7FFF 


X 




F2 


ADC 


FILE? 


POOBE 


7FFF 


X 




SWT 


ADC 


SWTCH 


POOBF 


7FFF 


X 




JB 


ADC 


JOBIND 


POOCO 


7FFF 


X 




JBST 


ADC 


JPSWT 


P00C1 


0000 






SAVI 


NUM 





poor? 


0000 




0008 P 


SAVOl 
* 


NUM 
EQH 




1 CARD DELETED 
MIPRUF(BHFFl) 








002D P 




EQU TRNTBL(BUFF2) 



***************************************************** 

* THIS ROUTINE RELEASES FILE3 (PROTEC) IF PRESENTLY 

* INCORE, RELEASES FILE2 (JOB PROC. MODS.) AND SCHEDULES 

* L1BEDIT WITH THE RETURN LOCATION STORED IN Q. 

***************************************************** 





JOBENT 


175 




JOBENT 


176 




JOBENT 


177 




JOBENT 


178 




JOBENT 


179 


**MSOS 


4.0 JOBENT 


180 


**MSOS 


4.0 JOBENT 


181 


**MSOS 


4.0 JOBENT 


182 


**MSOS 


4.0 JOBENT 


183 


**MSOS 


4.0 JOBENT 


184 


**MSOS 


4.0 JOBENT 


185 




JOBENT 


187 




JOBENT 


188 




JOBENT 


189 


61*1295 JOBENT 


190 




JOBENT 


192 




JOBENT 


193 


116*' 


1366 J0BENT132 


73 




JOBENT 


195 




JOBENT 


196 




JOBENT 


198 




JOBENT 


200 




JOBENT 


201 




JOBENT 


202 



JOBENT 



204 



P00C3 582E 
P00C4 ECB1 
P00C5 FOOO OOCC 



LIB RTJ* REL 
LDQ* (Fl) 
ADQ =XLB2-JBENT 



RELEASE OUTSTANDING FILES 



JOBENT 206 
JOBENT 207 
JOBENT 208 



o 
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P00C7 


54F4 


pooca 


1200 


P00C9 


FFFF X 


POOCA 


14EA 



TWLVE 



RTJ- 
NUM 
AOC 
JMP- 



($F4) 
$1200 
(LIBEDT) 
(DISP) 



SCHOLE LIBEPT 



JOBENT 209 

JOBENT 210 

JOBENT 211 

J0BEN1 212 



************************ RETURN FROM LIBEDT 



******************** 



JOBENT 



215 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



POOCB 


D813 




POOCC 


0A01 




poocn 


60E4 




POOCE 


D400 


009A X 


POODO 


OAOO 




P00D1 


6CEC 




P00D2 


6800 


FF62 


P00D4 


0802 




P00P5 


4CEA 




P00D6 


4CE8 




P00P7 


C807 




P00D8 


0111 




P00P9 


18C9 




PPOPA 


OAOO 




POPPB 


6803 




POODC 


0C06 




POOPO 


18C6 





POOPE 



LB2 



LB4 



RAO* 

ENA 

STA- 

RAO 

ENA 

ST A* 

STA 

SET 

STQ* 

STQ* 

LDA* 

SAN 

JMP* 

ENA 

STA* 

ENQ 

JMP* 



SAVQ 
1 

$E4 
M1B 



(SWT) 
LOADEP 

Q 

(JBST) 
(JB) 
SAVQ 
1 

SJBPRO-l 


SAVQ 
6 
SJRPRO 



THIS MUST REMAIN BEFORE TAG LB2 



RESET LOAD AND GO ON RETURN FROM LIBEDT 
SET M1B FLAG TO LOCK OUT OTHER ENTRIES 

CLEAR SWITCH FOR JP LOCK-OUT. 
CLEAR LOADER IN CORE FLAG 



RESET J. P. IN CORE FLAG 



LIBEDT IS TERMINATING 
ABNORMALLY 
TELL JOBPRO TO 
ABORT JOB 



0000 



POOPF 


5812 




RECOVR 


RTJ* 


REL 


POOEO 


EC95 






LDQ* 


(Fl) 


P00E1 


FOOO 


O0E8 




ADQ 


=XRC2-JBENT 


P00E3 


40EE 






STQ- 


$EE 


P00E4 


54F4 






RTJ- 


($F4) 


P00E5 


1200 






NI1M 


$1200 


P00E6 


FFFF X 






ADC 


(RCOVER) 


P00E7 


14EA 






JMP- 


(DISP) 


P00E8 


0500 




RC2 


I IN 





P00E9 


OAOO 






ENA 





POOEA 


6800 


FF49 




STA 


RI 


POOEC 


6800 


FF46 




STA 


BPS 


POOEE 


6800 


FF46 




STA 


LOADEP 


POOFO 


18PP 






JMP* 


LB4 


P00F1 


0000 




REL 


ADC 





P00F2 


0500 






UN 





P00F3 


C400 


7FFF X 




LDA 


JBCNFO 


P00F5 


0101 






SAZ 


G01 


PP0F6 


14 FA 






JMP- 


($EA) 


PP0F7 


6CC7 




001 


STA* 


(JB) 


POOF 8 


6400 


7FFF X 




STA 


JKIN 



SAVQ NUM $0000 

* THIS ROUTINE RELEASES FILE3 (PROTEC) IF PRESENTLY 

* INCORE, RELEASES FILE2 (JOB PROC. MODS.) AND SCHEDULES RECOVERY 

* WITH THE RETURN LOCATION STORED IN LOCATION $EE. 



RELEASE ANY UNUSED FILES 
SET RETURN IN $EE TO RC2 



**MSOS 


4.0 JOBENT 


217 




JOBENT 


218 


!EDT 


JOBENT 


219 


[ES 


JOBENT 


220 




JOBENT 


221 




JOBENT 


222 


116*' 


1366 J0BENT132 


74 




JOBENT 


224 


**MSOS 


4.0 JOBENT 


225 


**MSOS 


4.0 JOBENT 


226 


**MSOS 


4.0 JOBENT 


227 


**MSOS 


4.0 JOBENT 


228 


**MSOS 


4.0 JOBENT 


229 


**MSOS 


4.0 JOBENT 


230 


**MSOS 


4.0 JOBENT 


231 


**MSOS 


4.0 JOBENT 


232 


**MSOS 


4.0 JOBENT 


233 




JOBENT 


235 




JOBENT 


237 


IVERY 


JOBENT 


238 




JOBENT 


239 


**MSOS 


4.0 JOBENT 


241 




JOBENT 


242 




JOBENT 


243 




JOBENT 


244 




JOBENT 


245 




JOBENT 


246 




JOBENT 


247 




JOBENT 


248 



RETURN FROM RECOVERY PROGRAM 

CLEAR RECOVERY SWITCH 
BREAKPOINT SWITCH 
LOADER FLAG 



**MSOS 4.0 JOBENT 250 

JOBENT 251 

116*4366 JOBENT132 75 

116*4366 J0BENT132 76 

116*4366 J0BENT132 77 

**MS0S 4.0 JOBENT 255 



RELEASE FILE2, FILE3 ROUTINE IF THEY"RE IN 

IF CANCEL FLAG SET - GO AWAY AND LFT IT 
TAKE OVER. IF NOT SET, CONTINUE ON 

SET JOB PROCESSOR NOT ACTIVE 



JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 
JOBENT 



257 
258 
259 
260 
261 
262 
263 
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IF 



20 



25 



POOFA 


0804 




SET 


A 


SET LIBEDT IN FLAG 


JOBENT 


264 


POOFB 


6CC2 




STA* 


(SWT) 




JOBENT 


265 


POOFC 


0400 




EIN 







JOBENT 


266 


POOFD 


0802 




SET 


Q 


RELEASE AREA 3 


JOBENT 


267 


POOFE 


5802 




RTJ* 


MRELF 




JOBENT 


268 


POOFF 


1CF1 




JMP* 


(REL) 




JOBENT 


269 


P0100 


OBOO 


MRELF 


NOP 







JOBENT 


270 


pnim 


0143 




SQZ 


LOPER 


DON"T RELEASE 3 IF T13 OR JLG0V4 


JOBENT 


271 


P010? 


OPFA 




INQ 


-5 


ARE BEING CALLED 


JOBENT 


272 


P0103 


0141 




SQZ 


LOPER 


PROTEC IS THERE 


JOBENT 


273 


P0104 


0C01 




ENQ 


1 


SET TO RELEASE FILE3 AND FILE2 


JOBENT 


274 


P0105 


CEB7 


LOPER 


LDA* 


(F2),Q 




JOBENT 


275 


P0J06 


OlOfi 




SAZ 


CK 


IF ALREADY RELEASED - TO NEXT ONE 


JOBENT 


276 


P01P7 


6805 




STA* 


REL1 


NOT RELEASED - RELEASE IT 


JOBENT 


277 


P010P 


0844 




CLR 


A 




JOBENT 


278 


P01P9 


6EB3 




STA* 


(F?),Q 


ZERO FLAG 


JOBENT 


279 


pnioA 


54F4 




RTJ- 


($F4) 


i 


JOBENT 


280 


P010B 


1800 




ADC 


$1800 


RELEASE 


JOBENT 


281 


PP10C 


0000 


REL1 


ADC 







JOBENT 


282 


P010P 


0142 


CK 


SQZ 


CONT 


ALL COMPLETED - LEAVE 


JOBENT 


283 


P010E 


ODFE 




INQ 


-1 




JOBENT 


284 


P010F 


18F5 




JMP* 


LOPER 


NO - TRY AGAIN 


JOBENT 


285 


P0110 


1CEF 


CONT 


JMP* 


(MRELF) 




JOBENT 


286 


P0111 


0000 


SAVA 


NOM 







JOBENT 


288 


P011 2 






END 






JOBENT 


289 
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ARATCL 


00 5B 




4/43 L 


5/33 










AD ISP 


OOEA 


ABSOLUTE 


2/47 


5/43 










AFILV4 


OOBC 


♦EXTERNAL* 


2/3? X 


6/33 










AMONI 


0PF4 


ABSOLUTE 


2/4 7 


5/36 


5/46 








BATCH) 


0P5C 


♦EXTERNAL* 


2/35 X 


4/43 










BPS 


0034 




3/49 L 


4/22 


7/47 








BRL 


0046 




4/05 


4/22 L 










BUFFI 


OOOP 




3/07 


3/17 L 


3/35 


6/45 






BUFF? 


00?l) 




3/3U 


3/33 


3/42 L 


6/46 






CK 


oi on 




0/15 


8/22 L 










CONT 


0110 




8/22 


8/25 L 










DJSP 


OOEA 


ABSOLUTE 


2/45 Q 


6/16 


7/06 


7/42 






PRV 


oo?c 




3/37 B 












ENPB 


0012 


ABSOLUTE 


3/35 Q 


3/36 










ENTTBL 


0030 




3/04 


3/18 


3/19 


4/08 L 


4/17 




ERRM 


0005 




3/08 L 


4/10 










FILE1 


0076 


♦EXTERNAL* 


2/21 X 


5/13 










FILE? 


OOBO 


♦EXTERNAL* 


2/21 X . 


6/36 










FILL 


001A 




3/36 B 












FILTAB 


0042 




4/13 L 


4/16 










Fl 


0076 




2/60 


3/31 


3/44 


3/48 


3/52 


5/13 


F? 


OOBD 




6/36 L 


8/14 


8/18 








001 


OOF 7 




7/56 


7/58 L 










HOOFF 


OOOA 


ABSOLUTE 


2/50 Q 












H7FFF 


0011 


ABSOLUTE 


2/51 Q 


3/27 


3/28 








1 


OOFF 


-SYSTEM- 


4/30 - 


4/32 


5/53 








INPTV4 


005P 


*EXTERNAL* 


2/34 X 


4/41 










HIP 


OOBP 


♦EXTERNAL^ 


2/33 X 


4/42 


5/32 








JB 


OOBF 




6/3P L 


7/20 


7/58 








JRCKFG 


00F4 


♦EXTERNAL* 


2/22 X 


7/55 










JBFNT 


0000 




2/17 E 


3/45 


4/09 


4/12 


4/15 


6/59 








2/55 L 


3/49 


4/10 


4/13 


4/16 


7/37 








3/32 


3/53 


4/11 


4/14 


5/48 




JBPAOR 


00R3 




5/56 


6/?4 L 










JBPRO 


00A7 




2/18 E 


4/09 


5/58 L 








JBPROO 


OOAA 




5/57 


6/08 L 










JBST 


ooco 




4/29 


6/39 L 


7/19 








JB1 


0077 




3/26 


3/32 


3/42 


5/14 L 






JB? 


007P 




3/45 


3/46 


5/15 L 








JB3 


0079 




3/49 


3/50 


5/16 1. 








JB4 


00 7A 




3/53 


3/54 


5/17 L 








JCRDV4 


00B8 


♦EXTERNAL* 


2/31 X 


6/29 










JFLO 


0039 




3/54 L 


4/25 










JKIN 


00F9 


♦EXTERNAL* 


2/39 X 


7/59 










JL00V4 


00B7 


♦EXTERNAL^ 


2/31 X 


6/28 










J NAME 


003C 




4/05 L 


4/27 










JOB I NO 


OOBF 


♦EXTERNAL* 


2/24 X 


6/38 










JOBPRO 


00B3 


♦EXTERNAL* 


2/30 X 


6/24 










J0B070 


0061 




4/47 


4/49 1. 










JOB 080 


0067 




4/53 


4/55 L 










JOPOP? 


0070 




4/58 


5/07 L 










J0BPP4 


0073 




5/06 


5/10 L 










J OR OOP 


007C 




5/11 


5/19 L 










JOB! 00 


0087 




5/28 L 












JOB! 10 


OOPP 




5/?7 


5/?9 L 










J0B125 


009P 




5/38 


5/44 L 










J0B130 


OOA] 




4/4P 


5/34 


5/5? L 









7/36 
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JPCHCE 


00B5 


♦EXTERNAL* 


2/30 X 


6/26 






JPFLV4 


00B9 


♦EXTERNAL* 


2/31 X 


6/30 






JPLOAD 


00B4 


*EXTERNAL* 


2/30 X 


6/25 






JPSTV4 


OOBB 


♦EXTERNAL* 


2/32 X 


6/32 






JPSWT 


OOCO 


♦EXTERNAL* 


2/27 X 


6/39 






JPT13 


00B2 


♦EXTERNAL* 


2/30 X 


6/23 






JPOf) 


009E 




5/42 


5/49 L 






JP05ER 


0090 




4/54 


5/12 


5/28 


5/30 


L 


0024 


ABSOLUTE 


2/52 Q 


3/36 


4/31 




LB2 


OOCC 




6/59 


7/12 L 






LB4 


OOCE 




7/14 L- 


7/49 






LENGTH 


0008 


ABSOLUTE 


3/17 


4/17 Q 






LIB 


00C3 




4/13 


6/57 L 






LJBEPT 


OOCO 


♦EXTERNAL* 


2/26 X 


7/05 






LOAPEP 


0036 




3/51 L 


4/24 


7/17 


7/4 P 


LOOP 


0009 




3/1P L 


3/23 






LOPFR 


0105 




P/10 


8/12 


8/14 L 


8/24 


MIR 


OOCF 


*EXTERNAL* 


2/23 X 


5/45 


7/14 




MIPRlfF 


OPOR 




2/19 E 


4/11 


4/33 


6/45 


MRELF 


0100 




6/10 


P/07 


8/09 L 


8/25 


MVRUF 


0050 




4/32 L 


4/36 






NAMEV/l 


OOBA 


♦EXTERNAL* 


2/31 X 


6/31 






NIIMLU 


00B9 


♦EXTERNAL* 


2/36 X 


5/29 






OUT 


0010 




3/22 


3/24 L 






PARMER 


0091 




5/37 L 


5/38 


5/42 




RCOVER 


00E6 


♦EXTERNAL* 


2/26 X 


7/41 






RC2 


00E8 




7/37 


7/44 L 






RECOVR 


OOPF 




4/14 


7/35 L 






REL 


00F1 




6/57 


7/35 


7/53 L 


8/08 


REL1 


01 OC 




8/16 


8/21 L 






RESTOR 


00B6 


♦EXTERNAL* 


2/37 X 


6/27 






RI 


0035 




3/50 L 


4/23 


7/46 




SAVA 


0111 




8/27 L 








SAVBUF 


00 7B 




3/06 


4/28 


5/18 L 


5/52 


SAVI 


00C1 




6/42 L 








SAVQ 


OOPE 




7/11 


7/21 


7/25 


7/29 L 


SAVQ1 


00C2 




4/15 


5/55 


5/58 


6/11 


SCHADR 


OOBO 




6/08 


6/15 L 






SCMED 


OOAE 




6/13 L 








SJBPRO 


00A4 




5/55 L 


7/23 


7/27 




SWT 


OOBE 




6/37 L 


7/16 


8/04 




SWTCH 


OOBE 


*EXTERNAL* 


2/25 X 


6/37 






TRL 


00B2 




6/04 


6/23 L 






TEMPI 


OOAO 




5/22 


5/24 


5/25 


5/31 


TEN 


0046 


ABSOLUTE 


2/49 Q 


5/23 






TRANV 


OOOC 


♦EXTERNAL^ 


2/3P X 


3/20 






TRNFRL 


002P 




4/12 


6/46 






TWLVE 


OOCP 




7/04 L 








Til 


00 7P 


♦EXTERNAL* 


2/43 X 


5/15 






T3 


0079 


♦EXTERNAL* 


2/40 X 


5/16 






T5 


007A 


♦EXTERNAL^ 


2/41 X 


5/17 






T7 


0077 


♦EXTERNAL^ 


2/42 X 


5/14 






ZERO 


0022 


ABSOLUTE 


2/46 Q 









5/36 L 



6/43 L 



5/51 L 
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SUMMAR 
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023D 
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EXTERNAL SYMBOLS. 

BATCLU FILE2 

BATLST FII.E3 
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0007 




AOC 


JOBP-JOBTWO 


3 - RETURN WHEN NO STATEMENT - "J" 


PRINTED 


JOBPRO 


226 


P00B3 


0197 




ADC 


CLSDON-JOBTWO 


4-RETURN AFTER FILES CLOSED 


**MSOS 4. 


.0 JOBPRO 


227 


P00B4 


0003 




ADC 


FILHD-JOBTWO 


5-ROUTINE FOR FILE MODS 


**MSOS 4. 


.0 JOBPRO 


228 


P0fB5 


009B 




ADC 


TERM-JOBTWO 


6-START ABNORMAL JOB TERMINATION 


**MSOS 4. 


,0 JOBPRO 


229 


P00B6 


0000 


BPS 


NUM 





7 - BREAKPOINT SWITCH 




JOBPRO 


230 


P0CB7 


0000 


RI 


NUM 





8 - RECOVERY ON/OFF SWITCH 




JOBPRO 


231 


P0CB8 


0000 


LOADEP 


NUM 





9 - LOADER ENTRY POINT 




JOBPRO 


232 


PO0B9 


0000 


QREG 


NUM 





10 - REQUEST NUMBER 




JOBPRO 


233 


POflBA 


0000 


STCK 


NUM 





11 - LOCATION OF PROTECT PROCESSOR REQ STACK 


JOBPRO 


234 


POOBB 


0000 


JFLG 


NUM 





12-INDICATES IF A JOB IS IN PROGRESS**MSOS 4. 


JOBPRO 


235 


POOBC 


7FFF X 


NN 


ADC 


NSTACK 


13 - NO. OF ENTRIES IN PROTEC STACK 




JOBPRO 


236 


POC.BD 


00D6 




ADC 


RF3-J0BTW0 


14 - RETURN TO RELEASE FILE 3 "OUTPUT J" 


JOBPRO 


237 




OOOE 




EQU 


LENGTH(*-TRANTA-1) 


**MSOS 4, 


.0 JOBPRO 


238 


POOBE 


CAOA 


J0BP9 


LDA* 


TABLE, Q GET ADDRESS OF PROGRAM 




JOBPRO 


240 


POOBF 


0834 




AAQ 


A 






JOBPRO 


241 


ponco 


0902 




INA 


TABLE -JOBP 10 






JOBPRO 


242 


P00C1 


6P05 




STA* 


J0BP10 






JOBPRO 


243 


P00C2 


C800 00C5 




LDA 


SSI1 


RESTORE INPUT BUFFER POINTER 




JOBPRO 


244 


P00C4 


60FF 




STA- 


I 






JOBPRO 


245 


pone 5 


5P00 




RTJ* 


* 






JOBPRO 


246 


P00C6 


0000 


J0BP10 NUM 


$0000 






JOBPRO 


247 


P00C7 


1P10 




JMP* 


JOBP GET NEXT STATEMENT 




JOBPRO 


248 


poocp 


7FFF X 


TABLE 


ADC 


ONE 


RELATIVE TRANSFER TABLE 




JOBPRO 


250 


P00C9 


7FFF X 




ADC 


TWO 


USERS PROGRAMS. 




JOBPRO 


251 


POOCA 


7FFF X 




ADC 


THREE 






JOBPRO 


252 






* USER 


CAN 


ADD PROGRAM NAMES HERE. 




JOBPRO 


253 


POOCB 


7FFF X 


F3 


ADC 


FILE3 




**MSOS 4, 


.0 JOBPRO 


255 


POOCC 


7FFF X 


MIB1 


ADC 


MIB 






JOBPRO 


256 


POOCD 


OBOO 


RELFIL 


NOP 









JOBPRO 


258 


POOCE 


5800 0088 




RTJ 


JBKMIB 






JOBPRO 


259 


pooon 


0842 




CLR 


Q 






JOBPRO 


260 


pooni 


4CFA 




STQ* 


(MIB1) 


CLEAR MIB FLAG 




JOBPRO 


261 


P00D2 


1CFA 




JMP* 


(RELFIL) 


RTS 




JOBPRO 


262 


P0003 


5PF9 


F1LIID 


RTJ* 


RELFIL 






JOBPRO 


264 


P00D4 


OAOO 




ENA 







**MSOS 4, 


.0 JOBPRO 


265 


pnnr>5 


1PB7 




JMP* 


IDXTBL+I 


SCHEDULE THE SECOND PORTION OF 


**MSOS 4. 


,0 JOBPRO 


266 






* 






THE FILE HANDLER 


**MSOS 4. 


.0 JOBPRO 


267 


P0PH6 


58F6 


RF3 


RTJ* 


RELFIL 






JOBPRO 


268 


poon7 


CCOO 0155 


JOBP 


LDA 


(HIPP) 


CHECK FOR TYPE PF INPUT 


**MSOS 4. 


.0 JOBPRO 


269 


POOPO 


P82B 




STA* 


READLII 






JOBPRO 


270 


poopa 


AOOA 




AND- 


$A 


MEDIUM 




JOBPRO 


271 


PPPPB 


90F0 




SUB- 


$FD 


INPUT COMMENT DEVICE 


**MSOS 4, 


.0 JOBPRO 


272 



o 



O 



1700 ASSEMBLY OF JOBPRO 



CLASS - VER 3.0 



08/21/80 



10 



IF 



?0 



?5 



30 



3B 



40 



45 



5P 



55 



PPPPC 


01 P3 






SAZ 


J0BP1 


POODD 


80FD 






ADD- 


$FD 


POOPE 


90RP 


OOFD 




SUB 


=N$FO 


POOEO 


6873 




J0BP1 


STA* 


COMSW 


P00E1 


011B 






SAN 


J0BP61 


P0PE2 


5P7A 




WRIT 


RTJ* 


JBKILL 


P00E3 


54F4 






RTJ- 


($F4) 


P00E4 


0000 






ADC 


$000,WRIT1-WR 


POPES 


0P07 










P0PE6 


0000 




WRITUP 


ADC 





PPPE7 


18FC 




WRITLU 


APC 


$18FC,$2 


PPPEP 


OOP? 










PPPE« 


P070 






ARC 


WRIT0-M5 


POPEA 


14EA 






JMP- 


(01SP) 


PPPEB 


0161 




WRIT1 


S()P 


J0BP61 


PPPEC 


18F5 






JMP* 


WRIT 


POOEP 


CCPO 


FF5F 


J0BP61 


LPA 


(F2) 


PfiPEF 


PPPP 


0163 




APP 


=XSM1-J0BTW0 


PPPF1 


60FF 






STA- 


I 


PPPF? 


CC29 






LPA* 


(STABUF) 


P00F3 


6804 






STA* 


SET+1 


P0PF4 


OAFF 






ENA 


-0 


POOF 5 


0C?3 






ENQ- 


L-l 


P0PF6 


6600 


0000 


SET 


STA+ 


0,Q 


PP0F8 


6A6B 






STA* 


SM1.0 


PPPF9 


OPFE 






1NQ 


-1 


POPFA 


0171 






SQM 


REAOR 


POOFB 


18FA 






JMP* 


SET 


PPPFC 


5860 




READR 


RTJ* 


JBKILL 


PPOFD 


C400 


7FFF X 




LPA 


MIBUF 


PPPFF 


6P07 






STA* 


READLU+2 


P0100 


54F4 






RTJ- 


($F4) 


P0101 


0800 




REOPAR 


NUM 


$800,0 


P01P2 


0000 










P0103 


0000 




RDTHD 


APC 





P0104 


0000 




READLU 


APC 


O.L+1, (MIBUF) 


P0105 


00?5 










P0106 


80FE X 










PP1P7 


C8FB 




RP2 


LDA* 


RDTHD 


PP1PR 


0101 






SAZ 


RP1 


POIPO 


18FP 






JMP* 


RP? 


P010A 


CPF9 




RP1 


LPA* 


REAPLU 


P01PB 


01 ?E 






SAP 


RP3 


PP10C 


0FC4 






ALS 


4 


PP1PP 


0139 






SAM 


RP1A 


PP1PE 


OCPO 






ENQ 





PP1PF 


OFEC 






LLS 


12 


PH110 


E60P 


7FFF X 




LPQ 


LOGIA.Q 


P011? 


C?PC 






LDA- 


12, Q 


pnii3 


PFC4 






ALS 


4 


PP114 


0122 






SAP 


RD1A 


P0115 


1800 


00D7 




JMP 


TERMA 


PP117 


1800 


0116 


RD1A 


JMP 


RESTR 



YES 



DON"T PRINT A -J- ON THE LIST 
CHECK FOR JOB CANCEL FLAG SET 
OUTPUT J 



FIND ABS. LOC. OF SM 

GET ADDRESS INPUT BUF IN JOBENT 

SET BUFFER TO $FFFF 

STORE IN MIBUF IN JOBENT 
STORE IN LOCAL BUFFER 



CHECK FOR JOB CANCEL FLAG SET 
SET BUFFER ADDRESS IN CASE 
MONITOR IS IN UPPER BANK 
READ JP STATEMENT 



CHECK FOR COMPLETION OF I/O 



CHECK FOR I/O ERROR 
IF A READ ERROR, 

TTY ERROR 



PSYTAB OF INPUT DEVICE 
LOOK FOR EOF 



EOF— TERMINATE JOB 
RESTORE INPUT ON FAILURE 



00.20.57. 


PAGE 


7 


**MS0S 


4. 


.0 JOBPRO 


273 


**MSOS 


4. 


.0 JOBPRO 


274 


**MSOS 


4. 


,0 JOBPRO 


275 


**MSOS 


4. 


.0 JOBPRO 


276 


E**MSOS 


4. 


,0 JOBPRO 


277 






JOBPRO 


278 






JOBPRO 


279 


**MSOS 


4. 


.0 JOBPRO 


280 






JOBPRO 


281 






JOBPRO 


28? 






JOBPRO 


283 


**MSOS 


4. 


.0 JOBPRO 


284 


**MSOS 


4. 


.0 JOBPRO 


285 






JOBPRO 


286 


**MSOS 


4. 


,0 JOBPRO 


287 






JOBPRO 


288 






JOBPRO 


289 


**MSOS 


4. 


.0 JOBPRO 


290 


**MSOS 


4. 


.0 JOBPRO 


291 






JOBPRO 


292 






JOBPRO 


293 


**MSOS 


4. 


.0 JOBPRO 


294 






JOBPRO 


295 






JOBPRO 


296 






JOBPRO 


297 






JOBPRO 


298 






JOBPRO 


299 






JOBPRO 


300 






JOBPRO 


301 






JOBPRO 


302 






JOBPRO 


303 






JOBPRO 


304 






JOBPRO 


305 






JOBPRO 


306 






JOBPRO 


307 






JOBPRO 


308 






JOBPRO 


309 






JOBPRO 


310 


**MSOS 


4, 


.0 JOBPRO 


311 


**MSOS 


4. 


.0 JOBPRO 


312 


**MSOS 


4, 


.0 JOBPRO 


313 


**MSOS 


4, 


.0 JOBPRO 


314 


**MSOS 


4, 


,0 JOBPRO 


315 


**MSOS 


4. 


.0 JOBPRO 


316 


**MSOS 


4, 


,0 JOBPRO 


317 


**MSOS 


4, 


.0 JOBPRO 


318 


**MSOS 


4, 


.0 JOBPRO 


319 


**MSOS 


4, 


.0 JOBPRO 


320 



P0119 



8106 X 



SM1A ADC (MIBUF) 



ABS ADDR. OF INPUT BUFFER IN JOBENT 



JOBPRO 



322 
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CLASS - VER 3.0 08/21/80 00.20.57. 
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10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



P011A 


E400 


0119 X 


RD3 


LDQ 


MIBUF 




**MSOS 


4. 


.0 JOBPRO 


324 






OUR P 




EQtl 


STABUF(*-1) 




**MSOS 


4. 


.0 JOBPRO 


325 


P011C 


1846 






JMP* 


SSI 


TRANSFER MIINP BUFFER 






JOBPRO 


326 


pniin 


0C23 




SMCKS 


ENQ 


L-l 








JOBPRO 


327 


POUE 


CCFC 






LPA* 


(STABIIF) 


ADDR. OF INPUT BUFFER IN JOBENT 


**MSOS 


4, 


.0 JOBPRO 


328 


P011F 


68 10 






STA* 


SMCKS2+1 




**MSOS 


4. 


.0 JOBPRO 


329 


P0120 


6P1E 






STA* 


SMCKS3+1 




**MSOS 


4, 


.0 JOBPRO 


330 


P0I21 


CA42 




SMCKS1 


LDA* 


SM1.Q 


GET WORD FROM STATEMENT BUFFER 






JOBPRO 


331 


P0122 


B012 






EOR- 


HFFFF 


IS WORD $FFFF 






JOBPRO 


332 


P0.123 


01 OP 






SAZ 


BCKGND 


YES, STORE INTO BUFFERS 






JOBPRO 


333 


P0124 


CA3F 






LOA* 


SM1.0 


NO 






JOBPRO 


334 


P0125 


BOOO 


20FF 




EOR 


=N$20FF 


IS WORD $20FF 






JOBPRO 


335 


P0127 


0104 






SAZ 


BCKGND 


YES, FILL ENTIRE WORD WITH $FFFF 






JOBPRO 


336 


P0128 


CA3B 






LDA* 


SM1.Q 


NO 






JOBPRO 


337 


P0129 


BOOO 


2020 




EOR 


=N$2020 


IS WORD $2020 






JOBPRO 


338 


P012B 


0117 






SAN 


SMX 


NO, MUST HAVE A VALID CHARACTER 






JOBPRO 


339 


P0I2C 


C012 




BCKGND 


LDA- 


HFFFF 


YES, FILL ENTIRE WORD WITH $FFFF 






JOBPRO 


340 


P012D 


6A36 






STA* 


SM1.Q 


IN LOCAL BUFFER 






JOBPRO 


341 


P012E 


6600 


0000 


SMCKS2 


STA+ 


o,g 


AND IN JOBENT BUFFER 






JOBPRO 


342 


P0.130 


ODFE 






INQ 


-1 








JOBPRO 


343 


P0131 


0141 






SQZ 


SMX 








JOBPRO 


344 


POI32 


18EE 






JMP* 


SMCKS1 


LOOP 






JOBPRO 


345 


P0133 


CA30 




SMX 


LOA* 


SM1.Q 


IS LOWER CHARACTER A SPACE ($20) 






JOBPRO 


346 


P0134 


AOOA 






AND- 


HFF 








JOBPRO 


347 


P0135 


B028 






EOR- 


$28 


($0020) 






JOBPRO 


348 


P0136 


0102 






SAZ 


SMX1 


YES, BACKGROUND LOWER CHARACTER 






JOBPRO 


349 


PP137 


CA2C 






LDA* 


SM1.0 


NO, ENTIRE WORD IS VALID TO PROCESS 






JOBPRO 


350 


P0138 


1805 






JMP* 


SMCKS3 








JOBPRO 


351 


P013Q 


CA2A 




SMX1 


LDA* 


SM1.0 


PUT $FF INTO LOWER CHARACTER 






JOBPRO 


352 


P0I3A 


A01A 






ANP- 


$1A 


($FFOO) 






JOBPRO 


353 


P0.13B 


BOOA 






EOR- 


HFF 








JOBPRO 


354 


P013C 


6A27 




SMX1A 


STA* 


SM1.0 








JOBPRO 


355 


P0130 


6600 


0000 


SMCKS3 STA+ 0,0 








JOBPRO 


356 


P013F 


CP14 




SMY 


LPA* 


COMSW 








JOBPRO 


357 


P0140 


01 OF 






SAZ 


JJ0BP4-*-l 








JOBPRO 


358 


P0141 


EP23 






LDQ* 


SM1 + 1 




**MSOS 


4. 


.0 JOBPRO 


359 


P0142 


C823 






LDA* 


SM]-»2 




**MSOS 


4. 


.0 JOBPRO 


360 


P0143 


0F68 






LRS 


8 




**MSOS 


4. 


.0 JOBPRO 


361 


P0144 


9812 






SUB* 


B 


DON"T COPY A JOB CARD 


**MSOS 


4. 


.0 JOBPRO 


362 


P0145 


01 OA 






SAZ 


JJ0BP4 


JCRDV4 WILL DO IT 


**MSOS 


4. 


.0 JOBPRO 


363 


P0146 


54F4 






RTJ- 


($F4) 








JOBPRO 


364 


P0147 


ODOO 




SMWRIT 


ADC 


$nOO,0,0,$18FB,L COPY SM BUFFER TO LIST OUTPUT 






JOBPRO 


365 


P0148 


0000 




















P0J49 


0000 




















P014A 


18FB 




















P014B 


0024 




















P014C 


001C 






ADC 


SMI -SMWRIT 








JOBPRO 


366 


P014D 


C8FB 




SHW1 


LDA* 


SMWRIT+2 








JOBPRO 


367 


P014E 


0101 






SAZ 


JJ0BP4 








JOBPRO 


368 


P014F 


18FD 






JMP* 


SMW1 








JOBPRO 


369 


P0150 


580C 




JJ0BP4 RTJ* 


JBKILL 


CHECK FOR JOB CANCEL FLAG SET 






JOBPRO 


370 


P0151 


1800 


FEFC 




JMP 


J0BP4 








JOBPRO 


371 


P0153 


0000 




COMSW 


NIIM 











JOBPRO 


372 


P0154 


4A20 




WRITO 


ALF 


l.J 








JOBPRO 


373 


P0155 


OPFF 






NIIM 


$00FF 








JOBPRO 


374 



P0156 



422C 



ALF 1,B, 



**MSOS 4.0 JOBPRO 



376 



o 
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* THIS SUBROUTINE CHECKS FOR JOB CANCEL FLAG SET AND, IF CLEAR, SETS JOBPRO 378 

* MIB FLAG FOR JOB LOCKOUT. JOBPRO 379 



10 



15 



?0 



P0157 


0000 




JBKMIB ADC 


P0158 


5804 




RTJ* JBKILL 


P0159 


D400 


OOCC X 


RAO MIB 






015A P 


EQU MIBFLG(*-1) 


P015B 


1CFB 




JMP* (JBKMIB) 



CHECK FOR JOB CANCEL FLAG SET 
NOT SET SET MIB SWITCH 



P015C 


0000 


P015D 


C400 


PP15F 


0101 


POlfiO 


14EA 


P0161 


1CFA 



JOBPRO 
JOBPRO 
**MSOS 4.0 JOBPRO 
**MSOS 4.0 JOBPRO 
RETURN TO SENDER JOBPRO 

THIS SUBROUTINE CHECKS THE JOB CANCEL FLAG. IF SET, IT EXITS TO JOBPRO 
THE DISP. TO WAIT FOR JOBKILL JOBPRO 



JBKILL ADC 
7FFF X LDA JBCNFG 

SAZ RETURN 
JMP- ($EA) 

RETURN JMP* (JBKILL) 



CHECK FOR JOB KILL MODULE ACTIVE 



JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
NOT ACTIVE- RETURN WITH INHIBITED INTERRUPTS JOBPRO 



381 
382 
383 

384 
385 
386 
387 



389 
390 
391 
392 
393 



?5 



30 



35 



40 



45 







0024 




EQU 


L(36) 


P0162 


5826 




SSI 


RTJ* 


SSI1 


P0163 




0024 




BSS 


SM1(L) 


P0187 


FFFF 






NUM 


$FFFF 


P0188 


0000 




SSI1 








P01P9 


CPFE 






LDA* 


SSI1 


P01PA 


60FF 






STA- 


I 


P01PB 


4 BOB 






STQ* 


BUFPTR 


P018C 


4800 


FF23 




STQ 


INPBUF 


P018E 


0C23 






ENQ 


L-l 


P01PF 


CE07 




L0P1 


LDA* 


(BUFPTR), Q 


P0190 


66FF 






STA- 


(O.Q 


P0191 


0142 






SQZ 


0UT1 


P0192 


ODFE 






INQ 


-1 


P0193 


18FB 






JMP* 


L0P1 


P0194 


4CC5 




0UT1 


STQ* 


(MIBFLG) 


P0195 


1887 




•k 


JMP* 


SMCKS 


P0196 


0000 




BUFPTR 


ADC 






* THIS ROUTINE SAVES THE JOB PROCESSOR STATEMENT 

* DEFINE BY LOCATION SPECIFIED IN Q REGISTER. 



MOVE STATEMENT TO INTERNAL BUFFER 
STATEMENT BUFFER 



**MSOS 



ABS LOCATION OF SMI BUFFER 

I POINTS TO BEGINNING OF INPUT BUFFER 
SET BUFPTR TO POINT TO SOURCE BUFFER 



PICK-UP FROM USERS 

INTO LOCAL 

IF Q ZERO - DONE 

NEXT WORD 

CLEAR MIB SWITCH **MSOS 

GET LOCAL BUFFER AND BUFFER IN JOBENT 

BACKGROUNDED 

POINTER TO USERS BUFFER 



JOBPRO 
JOBPRO 

4.0 JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 

JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 

4.0 JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
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397 

399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 

410 
411 
412 
413 
414 
415 
416 
417 
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*********************************************************** 

* this area is entered after term logic has called file **msos 

* module to close job files for abnormal term. **msos 
*********************************************** *****************msos 



10 



IB 



20 



25 



30 



35 
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55 



P0197 

PPJOQ 

POl'W 
P01«C 
PP19E 
P019F 
P01A0 

P01A1 
P01A2 
P01A3 
P01A4 
P01A5 
P01A6 
P01A7 
P01A8 
P01A9 

P01AA 
P01AB 
P01AC 
P01AD 
P01AE 
P01AF 
P01B0 
P01B1 
P01R2 
P01B3 
P01B4 
P01B5 
P01BP 
P01B7 

P01B8 
P0JB9 
POIBB 
P01BC 
P01BD 
P01BE 
P01RF 
P01C0 
P01C1 
P01C2 
P01C3 
P01C4 
P01C5 
P01C6 
P01C7 
P01C8 
P01C9 
P01CA 
P01CB 



C800 FF20 

0122 

CPOO 009B 

E400 7FFF X 

4815 

6623 

OD27 

40FF 
0CD8 
C722 
0864 
0104 
D80C 
0D01 
0141 
18F9 

5802 
180E 
OBOO 
54F4 
OCOO 
0000 
0000 
18FC 
0000 
0000 
CPFB 
0101 
1PFD 
E8F9 

1CF3 

COOO 1PFB 

6RF5 

COFC 

90FB 

0101 

SPEC 

DPFO 

OAOO 

68EF 

CC6A 

6P05 

54F4 

1C00 

0000 

0000 

0000 

5000 

C8FC 



CLSDON IDA 
SAP 
LDA 

J LDQ 
STQ' 
STA- 
INQ 



TRANTA+10 

J 

NAME4 2 

ERRMSG 

JSTART 

($23), 

L+3 



ERROR CODE **MSOS 

MINUS FOR *T RESPONSE TO 
LOADER ERROR 

PICK UP ADDRESS OF ERRM IN JOBENT 
STORE IN WRITE REQ. 

STORE CORRECT ERROR NO. IN SM IN JOBENT 
Q POINTS TO MIPBUF+1 IN JOBENT **MSOS 
MIPBUF IN JOBENT 



Jl 



STQ- I 
ENQ -L-3 
LDA- (ZERO),B 
TCA A 
SAZ J2A 
RAO* JN 
INQ 1 
SQZ J2A 
JMP* Jl 



CHECK FOR A NULL CHARACTER 



**MSOS 
**MSOS 

**MSOS 
**MS0S 
**MSOS 
**MS0S 



J2A 



RTJ* WRERR 
JMP* ERRAG 
WRERR NOP 

RTJ- ($F4) 

NUM $C00,$0,$0,$1PFC 



WRITE ERROR MESSAGE 



JN NUM 
JSTART ADC 
LDA* 
. SAZ 
JMP* 
LDQ* 







$0000 
) 

JN-2 
1 

*-2 
JN-1 



JMP* (WRERR) 
ERRAG LDA =N$1PFB 
STA* JN-1 
LDA- $FC 
SUB- $FB 
SAZ G0NXT1 
RTJ* WRERR 
G0NXT1 RAO* JN-1 
ENA 
STA* JN 
LDA* (IUI'P) 
STA* MLU 
RTJ- ($F4) 
NUM $1C00,0 

TH NUM 
MLU MUM 

NUM $5000 

LDA* TH 



STARTING ADDRESS OF MIPBUF IN JOBENT 
WAIT FOR COMPLETION 



CHECK FOR ERROR ON WRITTING 
2 CARDS DELETED 



LU OF COMMENT DEVICE 

LU OF STD. PRINT DEVICE 

IF. EQ. PRINT MESSAGE ONLY ONCE 



CLEAR WORD COUNT 
INPUT DEVICE 

GET THE NEXT JOB 

SKIP TO EOF ON INPUT UNIT 



JOBPRO 419 

4.0 JOBPRO 420 

4.0 JOBPRO 421 

4.0 JOBPRO 422 

4.0 JOBPRO 423 

JOBPRO 424 

JOBPRO 425 

JOBPRO 426 

JOBPRO 427 

JOBPRO 428 

4.0 JOBPRO 429 

JOBPRO 430 

JOBPRO 431 

4.0 JOBPRO 432 

4.0 JOBPRO 433 

JOBPRO 434 

4.0 JOBPRO 435 

4.0 JOBPRO 436 

4.0 JOBPRO 437 

4.0 JOBPRO 438 

JOBPRO 439 

JOBPRO 441 

JOBPRO 442 

JOBPRO 443 

JOBPRO 444 

JOBPRO 445 



JOBPRO 446 

JOBPRO 447 

JOBPRO 448 

JOBPRO 449 

JOBPRO 450 

JOBPRO 451 

JOBPRO 452 

JOBPRO 453 

JOBPRO 454 

JOBPRO 455 

JOBPRO 456 

JOBPRO 457 

JOBPRO 458 

JOBPRO 459 

JOBPRO 460 

**MSOS 4.0 JOBPRO 461 

**MSOS 4.0 JOBPRO 462 

**MSOS 4.0 JOBPRO 463 

**MSOS 4.0 JOBPRO 464 

**MSOS 4.0 JOBPRO 465 

**MSOS 4.0 JOBPRO 466 

**MSOS 4.0 JOBPRO 467 

**MSOS 4.0 JOBPRO 468 

**MSOS 4.0 JOBPRO 469 

**MSOS 4.0 JOBPRO 470 
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PAGF 



11 



o 



10 



15 



20 



25 



30 



35 



10 



45 



50 



55 



P01CC 


0101 


poicn 


1PFP 


P01CE 


E4P0 OOAfi X 




01 CF P 


poino 


C20F 


poim 


0135 


P01P2 


6862 


P01D3 


C210 


P0104 


6861 


P0105 


C211 


P01P6 


6860 


P01P7 


OAFF 


P0108 


620r 


P01D9 


5802 


P01PA 


180B 


POJPB 


OBOO 


PP1PC 


54F4 


P01P0 


OPPO 


POIRE 


0007 


PP1PF 


OPPO 


P01E0 


18FC 


P01E1 


POOP 


P01E2 


OP57 


P01E3 


14EA 


PP1E4 


1CF6 


P01E5 


COOO 18FB 


P01E7 


68FP 


P01E8 


COFC 


P01EP 


90FR 


P01EA 


0101 


P01EB 


58EF 


P01EC 


P8F3 


P01ED 


0A01 


P01EE 


60E4 


POlEr 


C0C1 


P01F0 


6809 


P01F1 


54F4 


P01F2 


OPOO 


P01F3 


0000 


P01F4 


0000 


P01F5 


08C2 


P01F6 


0000 


P01F7 


004A 


P01F8 


0000 


P01F9 


OOPO 


PP1FA 


C8F9 


PP1FB 


0101 


P01FC 


1PFR 


P01FP 


EOFB 


PP1FE 


4 POP 


P01FF 


F600 0111 X 


P02P1 


C20P 


P0202 


A010 


PP2P3 


0F44 


P0204 


9000 02PA 


PP2P6 


0119 


P0207 


54F4 





SAZ 


1 






JMP* 


*-2 






LDQ 


TRNVEC 


ADDRESS OF TRAI 




EQU 


TRATBL(*-1 


) 




LDA- 


15.Q 






SAM 


ABOR 


NO JOB NAME 




STA* 


NAME 






LDA- 


16, Q 






STA* 


NAME+1 






LDA- 


17, Q 






STA* 


NAME +2 




ABOR 


ENA 


-0 


CLEAR JOB NAME 




STA- 


15, Q 


CLEAR JOB NAME 




RTJ* 


ABERR 






JMP* 


TERM1+1 




ABERR 


NOP 







ABORT 


RTJ- 


($F4) 






ARC 


$P00,TERM1 


-AB0RT-1,0,$18FC,8 



TABLE IN JOBENT 



ADC NAME-ABORT- 
JMP- (DISP) 

TERM1 JMP* (ABERR) 
LDA =N$18FB 
STA* ABORT+4 
LPA- $FC 
SUB- $FB 
SAZ G0NXT2 
RTJ* ABERR 

G0NXT2 RAO* ABORT+4 

TERMA ENA 
STA- 



LtJ OF COMMENT DEVICE 
LU OF STD. PRINT DEVICE 
IF.EQ.PRINT LESSAGE ONLY ONCE 



STRTM 



1 

$E4 
LDA- $C1 
STA* SECT+1 

($F4) 

$000,0 



RTJ 
NUM 



WRITE *T ON SCRATCH UNIT 



TIIR NUM 0,$8C2,0 



SECT 



APC STRTEE-STRTM-1 
NUM 0,0 



LPA* THR 

SAZ 1 

JMP* *-2 

LPO- $FB 

STQ* WE0FB4 4 

LPQ L0G1A.Q 

LPA- 8,Q 

AND- LPMSKU4 

ARS 4 

SUB =N$28A 

SAN NOEOF 

WEOFB RTJ- ($F4) 



GET PHYSTAB APRRESS 

GET EOUIPMENT CLAS, TYPE 



IS LIST = BATCH OUTPUT DEVICE 
WRITE EOF TO LIST DEVICE 



**MSOS 


4, 


.0 JOBPRO 


471 


**MSOS 


4. 


.0 JOBPRO 


472 


**MSOS 


4. 


.0 JOBPRO 


473 


**MSOS 


4, 


.0 JOBPRO 


474 


**MSOS 


4, 


.0 JOBPRO 


475 


**MSOS 


4. 


.0 JOBPRO 


476 


**MSOS 


4. 


.0 JOBPRO 


477 


**MSOS 


4. 


,0 JOBPRO 


478 


**MSOS 


4, 


.0 JOBPRO 


479 


**MSOS 


4. 


,0 JOBPRO 


480 


**MSOS 


4, 


.0 JOBPRO 


481 


**MSOS 


4. 


,0 JOBPRO 


482 


**MSOS 


4. 


.0 JOBPRO 


483 






JOBPRO 


484 






JOBPRO 


485 






JOBPRO 


486 


**MSOS 


4, 


,0 JOBPRO 


487 






JOBPRO 


488 



**MSOS 


4. 


.0 


JOBPRO 


489 


**MSOS 


4, 


.0 


JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 


490 
491 
492 
493 
494 
495 
496 
497 
498 


**MSOS 


4, 


.0 


JOBPRO 


' 499 


**MSOS 


4, 


.0 


JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 
JOBPRO 


500 
501 
502 
503 
504 



JOBPRO 



505 



JOBPRO 


506 


JOBPRO 


507 


JOBPRO 


508 


JOBPRO 


509 


JOBPRO 


510 


132*5184 J0BPR0132 


5 


132*5184 J0BPR0132 


6 


132*5184 J0BPR0132 


7 


132*5184 J0BPR0132 


8 


132*5184 JOBPRO! 32 


9 


132*5184 J0BPR0132 


10 


132*5184 JOBPRO] 32 


11 


132*5184 J0BPR0132 


12 


132*5184 JOBPR0132 
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10 



?0 



25 



30 



35 



40 



45 



P0208 
P0209 
P020A 
P020B 
P020C 
P020P 
P020E 
P020F 

P0210 
P0211 
P0212 
P0213 
P0215 
P0217 
P0219 
P021R 
P0210 
P021F 
P0220 
P0222 
P0223 
P0224 
P0225 
P0227 
P0229 
P022A 
P022B 
P022D 
P022E 

P0230 
P0231 
P0233 
P0234 
P0235 
P0236 
P0237 
P0238 
P0239 
P023A 
P023R 
P023C 
P023D 



moo 

0000 
0000 
0000 
2000 
CPFC 
0101 
18FD 

OAOO 
ECRD 
620C 
6800 
6400 
6800 
6800 
6400 
C400 
6C0E 
C800 
0108 
080? 
OAOO 
6800 
C400 
60FF 
14FF 
1800 
7FFF 
COOO 

6CFC 
1800 
0000 
204A 
4F42 
2020 
204) 
424F 
5254 
4544 
2020 
2A54 



ADC $1000 

ADC 

TR3 ADC 

ADC 

NUM $2000 

TRL LDA* TR3 

SAZ NOFOF 

JMP* TRL 

0210 P NOEOF EQU NOEOF(*) 

ENA 

LOO* (TRATBL) 

STA- 12,0 

FEA6 STA TRANTA+12 

7FFF X STA JBCFGZ 

FE9F STA TRANTA+9 

FE9B STA TRANTA+7 

7FFF X STA VINPV4 

7FFF X LDA+ BATCLU 

STA* (IUPP) 

FE95 RSET LDA RI 

SAZ GETMOR 

SET Q 

ENA 

FE90 STA RI 

7FFF X LDA RECOV 

STA- I 

JMP- (I) 

FEA9 GETMOR JMP RF3 

IUPP ADC IUP 

IPFD RESTR LDA =N$18FD 

022F P EQU C0MDEV(*-1) 

STA* (IUPP) 
FEA4 JMP JOBP 

SAVIT ADC 

NAME ALF 3, JOB 



AI.F 5, ABORTED 



CLEAR JOB IN PROGRESS FLAG 

CLEAR JOB ABORT FLAG 
CLEAR LOADER IN CORE FLAG 
CLEAR BREAKPOINT SWITCH 
CLEAR *V,LU WHEN THE JOB ABORTS 
BATCH CONTROL STATEMENT LU 



SCHEDULE RCOVER 
THRU JOBENT 

GET ANOTHER JOB 



132* 


5184 J0BPR0132 


14 


132*! 


5184 J0BPR0132 


15 


132* 


5184 J0BPR0132 


16 


132* 1 


5184 JORPR0132 


17 


132*! 


5184 J0BPR0132 


18 


132*! 


5184 JOBPR0132 


19 


132*! 


5184 J0BPR0132 


20 


132*! 


5184 J0BPR0132 


21 


132*! 


5184 J0BPRO132 


22 


**MSOS 


4.0 JOBPRO 


511 


**MSOS 


4.0 JOBPRO 


512 


**MSOS 


4.0 JOBPRO 


513 


**MSOS 


4.0 JOBPRO 


514 




JOBPRO 


515 




JOBPRO 


516 




JOBPRO 


517 




JOBPRO 


518 


116*' 


1366 J0BPR0132 


23 


**MSOS 


4.0 JOBPRO 


520 


**MSOS 


4.0 JOBPRO 


521 


**MSOS 


4.0 JOBPRO 


522 


**MSOS 


4.0 JOBPRO 


523 


**MSOS 


4.0 JOBPRO 


524 


**MSOS 


4.0 JOBPRO 


525 


**MSOS 


4.0 JOBPRO 


526 


**MSOS 


4.0 JOBPRO 


527 


**MSOS 


4.0 JOBPRO 


528 


**MSOS 


4.0 JOBPRO 


529 


**MSOS 


4.0 JOBPRO 


530 


*390 


JOBPRO 


531 


**MSOS 


4.0 JOBPRO 


532 




JOBPRO 


533 




JOBPRO 


534 




JOBPRO 


535 


**MSOS 


4.0 JOBPRO 


536 



STRTEE ALF 1,*T 
END 



**MSOS 4.0 JOBPRO 537 



JOBPRO 538 
JOBPRO 539 



67773B STORAGE USED 
6400 ASSEMBLY 



559 STATEMENTS 
4.765 SECONDS 



160 SYMBOLS 
449 REFERENCES 
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ABERR 


01PB 




11/16 


11/18 L 


11/27 


11/33 




ABOR 


0107 




11/08 


11/14 L 








ABORT 


01 PC 




11/19 L 


11/20 


11/25 


11/29 


11/34 


B 


0156 




8/41 


8/59 L 








BATCLU 


021E 


♦EXTERNAL* 


2/37 X 


12/20 








BATLST 


7FFF 


♦EXTERNAL* 


2/44 X 










RCKr.ND 


012C 




8/12 


8/15 


8/19 L 






BPS 


00B6 




6/14 L 










BUFPTR 


0196 




9/34 


9/37 


9/45 L 






CLSDON 


0197 




6/11 


10/08 L 








COMDEV 


022F 




12/33 Q 










COMSW 


0153 




7/06 


8/36 


8/55 L 






DISP 


OOEA 


ABSOLUTE 


2/48 Q 


7/16 


11/26 






ERRAG 


01B9 




10/27 


10/42 L 








ERRMSG 


01 9D 


♦EXTERNAL* 


2/27 X 


10/11 




' 




FILE2 


004E 


*EXTERNAL* 


2/28 X 


4/17 








FILE3 


OOCB 


♦EXTERNAL* 


2/33 X 


6/40 








FILIIO 


OOP 3 




6/12 


6/51 L 








F2 


004 E 




2/53 


4/17 L 


7/19 






F3 


OOCB 




6/40 L 










OETMOR 


022B 




12/23 


12/30 L 








G0NXT1 


01C0 




10/46 


10/48 L 








G0NXT2 


01EC 




11/32 


11/34 L 








HEXPF 


006C 




4/32 


4/46 L 


4/52 






IIFF 


OOOA 


ABSOLUTE 


2/41 


P/?6 


8/33 






HFFFF 


0012 


ABSOLUTE 


2/42 Q 


8/11 


8/19 






II7FFF 


0011 


ABSOLUTE 


2/42 










I 


OOFF 


-SYSTEM- 


3/04 


3/08 


5/32 


5/52 


7/21 9/38 12/28 








3/06 


5/30 


5/49 


6/30 


9/33 10/16 12/29 


IDXTRL 


008C 




5/05 


5/10 


5/14 


5/18 


6/53 








5/07 


5/13 


5/16 


5/20 L 




INPEX 


009A 




5/28 


5/31 


5/33 L 






1NPBIIF 


00B1 




3/32 


6/09 L 


9/35 






INPTV4 


7FFF 


♦EXTERNAL^ 


2/35 X 










I IIP 


0220 


♦EXTERNAL* 


2/31 X 


12/31 








HIPP 


022D 




6/56 


10/51 


12/21 


12/31 L 


12/34 


J 


019C 




10/09 


10/11 L 








JB 


0022 




3/13 


3/26 L 








JBCFGZ 


0216 


♦EXTERNAL* 


2/40 X 


12/16 








JBCNFG 


01 5E 


♦EXTERNAL^ 


2/25 X 


9/18 








JBK1LL 


015C 




7/08 


7/31 


8/53 


9/09 


9/17 L 9/21 


JBKMIB 


0157 




4/58 


6/44 


9/08 L 


9/12 




JBP 


002C 




3/23 


3/37 L 








JBPEX 


0093 




5/27 L 


5/37 








JBPRO 


002F 




3/33 


3/42 L 


6/08 






JBPROE 


0096 


♦EXTERNAL^ 


2/22 X 


5/29 








JCHK 


005E 




4/34 L 










JFLf 


OOBB 




6/19 L 










JJ0BP4 


0150 




8/37 


8/42 


8/51 


8/53 L 




JN 


01B2 




10/21 


10/34 L 


10/36 


10/39 


10/43 10/48 10/50 
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3/15 


3/19 


3/41 
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2/34 X 


3/14 








JORP 


00P7 




3/36 


6/10 


6/33 


6/56 L 


12/35 


J0BP1 


OOEO 




6/60 


7/06 L 
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00C6 




6/27 


6/28 


6/32 L 






J0BP4 


004F 




4/19 L 


8/54 








J0BP6 


0077 




4/51 


4/53 


4/57 L 
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J0BP61 


OOEP 




7/07 


7/17 


7/19 L 






J0BP9 


OOBE 




5/19 


6/25 L 








JOBTWO 


0000 




2/16 E 


2/56 


6/08 


6/11 


6/13 








2/52 L 


3/21 


6/10 


6/12 


6/21 


JOLK 


0067 




4/28 


4/42 L 








JOLKA 


006E 




4/36 


4/39 


4/44 


4/48 L 




J0LK.A1 


0063 




4/31 


4/33 


4/39 L 






J03T 


OOOF 




2/18 E 


4/26 


5/40 L 






J03T1 


00A1 




4/41 


5/41 L 








JPSWT 


0023 


♦EXTERNAL* 


2/24 X 


3/26 








JPTAB 


0031 




3/44 L 


4/29 


4/34 


4/37 


4/48 


JPTABL 


004 C 




4/14 B 


4/48 








JP1 


0002 




2/54 L 










J START 


01B3 




10/12 


10/35 L 








Jl 


01A3 




10/18 L 


10/24 








J?A 


01AA 




10/20 


10/23 


10/26 L 






L 


0024 


ABSOLUTE 


7/25 


8/06 


9/27 Q 


9/36 


10/17 








7/38 


8/47 


9/29 


10/14 




LENGTH 


OOOE 


ABSOLUTE 


5/50 


6/22 Q 








LOADEP 


00B8' 




6/16 L 










LOfilA 


0200 


*EXTERNAL* 


2/36 X 


7/50 


11/53 






LOOP 


OOOE 




3/06 L 


3/U 
9/41 








L0P1 


01BF 




9/37 L 








LPMSK 


0002 


ABSOLUTE 


2/45 Q 


11/55 








M1B 


01 5A 


♦EXTERNAL* 


2/32 X 


6/41 


9/10 






MIBFLG 


01 5A 




9/11 Q 


9/42 








MIBUF 


011B 


♦EXTERNAL* 


2/23 X 


7/32 


7/39 


7/58 


7/60 


MIB1 


OOCC 




3/35 


6/41 L 


6/46 






ML II 


01C9 




10/52 


10/57 L 








MOVE 


00A9 




5/51 L 


5/55 








MVTBL 


00A4 




4/59 


5/46 L 


5/56 
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0234 




10/10 


11/09 
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11/13 


11/25 


NN 


OOBC 




6/20 L 










NOEOF 
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11/58 


12/09 


12/11 Q 






NSTACK 


OOBC 


♦EXTERNAL* 


2/29 X 


6/20 
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♦EXTERNAL* 


2/39 X 


6/35 
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2/26 X 


12/27 
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RELFIL 
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6/43 L 


6/47 
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REQXT 


00B9 


ABSOLUTE 


2/46 Q 










RESTR 


022E 




7/55 


12/32 L 








RETRY 


006F 




4/49 L 


4/56 








RETURN 
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9/2J L 








RF3 


00D6 




2/17 E 


6/21 


6/55 L 


12/30' 
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RI 


00B7 




2/19 E 


6/15 L 


12/22 


12/26 








RSET 


0220 




12/22 L 














SAVIT 


0233 




12/36 L 














SAVQ 


004 C 




4/15 L 














SAVO? 


0021 




2/54 


3/12 


3/25 L 










SECT 


01F8 




11/38 


11/46 L 












SET 


00F6 




7/23 


7/26 L 


7/30 










SMCKS 


01 ID 




8/06 L 


9/43 












SMCKS1 


0121 




8/10 L 


8/24 












SMCKS2 


01 2E 




8/08 


8/21 L 
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01 3D 




8/09 


8/30 


8/35 L 










SMWRIT 


0147 




8/44 L 


8/49 


8/50 










SMW1 


014D 




8/50 L 


8/52 












SMX 


0133 




8/18 


8/23 


8/25 L 










SMX1 


0139 




8/28 


8/31 L 












SMX1A 


01 3C 




8/34 L 














SMY 


01 3F 




8/36 L 














SMI 


0163 




7/20 


8/10 


8/16 


8/25 


8/31 


8/38 


8/49 








7/27 


8/13 


8/20 


8/29 


8/34 


8/39 


9/29 B 


SM1A 


0119 




7/58 L . 














SSI 


0162 




3/42 


8/05 


9/28 L 










SSI1 


0188 




6/29 


9/28 


9/31 L 


9/32 








STABIIF 


01 IB 




7/22 


8/04 Q 


8/07 










STCK 


OOBA 




6/18 L 














STPTEE 


02 3C 




11/45 


12/45 L 












STRTM 


01F1 




11/39 L 


11/45 












TABLE 


O0C8 




6/25 


6/27 


6/35 L 










TFMP 


004 D 




4/16 L 


4/22 


4/30 


4/35 


4/38 


4/50 




TERM 


009B 




5/34 L 


5/43 


6/13 










TERMA 


01 ED 




4/45 


7/54 


11/35 L 










TERM1 


01 E4 




11/17 


11/20 


11/27 L 










TH 


01C8 




10/56 L 


10/59 












THR 


01F4 




11/42 L 


11/48 












THREE 


OOCA 


♦EXTERNAL* 


2/39 X 


6/37 












TRANTA 


OOAF 




2/55 


3/07 


4/27 


6/07 L 


10/08 


12/17 










2/56 


3/20 


5/51 


6/22 


12/15 


12/18 




TRANV 


0008 


*EXTERNAL* 


2/30 X 


2/57 












TRATBL 


01CF 




11/06 


12/13 












TRL 


020D 




12/08 L 


12/10 












TRMTB 


00A6 




5/41 


5/48 Q 












1RNVEC 


01CF 


♦EXTERNAL* 


2/21 X 


2/60 


5/47 


11/05 








TR3 


020A 




12/05 L 


12/08 












TTYEOF 


006D 




4/42 


4/47 L 












TWO 


00C9 


*EXTERNAL* 


2/39 X 


6/36 












VINPV4 


021C 


♦EXTERNAL* 


2/38 X 


12/19 












WEOFB 


0207 




11/52 


11/59 L 












WRERR 


01AC 




10/26 


10/28 L 


10/41 


10/47 








WRIT 


00E2 




7/08 L 


7/10 


7/18 










WRITIIP 


00E6 




7/12 L 














WRITLO 


00E7 




7/13 L 














WRITO 


0154 




7/15 


8/56 L 












WRIT1 


OOFB 




7/10 


7/17 L 












ZERO 


0022 


ABSOLUTE 


2/49 


10/18 
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CLASS - VF.R 3.0 08/21/80 00.21.00. PAGE 1 



AOPRESS LENGTH 

0000 01A8 
01AR 



BINARY CONTROL CARDS. 

NAM D1711 DECK-ID B27 PERIPH. DRIVERS l.OB SUMMARY-106 
END 



ENTRY POINT NAMES AND ADDRESSES. 

C1711 — 0042 E1711 — 0000 11711 — 0004 



EXTERNAL SYMBOLS. 

ALTDEV 
1700 ASSEMBLY OF D1711 



LOG 



MAKEQ 



MI 



RLAQ 
CLASS 



RQAQ 
VER 3.0 



08/21/80 00.21.03. 



PAGE 



NAM 01711 DECK-ID B27 PERIPH. DRIVERS l.OB SUMMARY-106 D171 
1711 TELETYPE AND 713-10/711-100/713-120 CRT DRIVER Dl/1 
PERIPHERAL DRIVERS l.OB D171 

SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA D171 

COPYRIGHT CONTROL DATA CORPORATION 1976 D171 



10 



15 



20 



25 



30 



35 



40 



*P1711 



0004 P 
0042 P 
0000 P 



ADC 


$520A 


00 


ADC 


CI1711 


01 


ADC 


CC1711 


02 


ADC 


CE1711 


03 


NUM 


-1 


04 


NUM 





05 


NUM 





06 


NUM 


$009-1 
$3O06+T713 


07 


ADC 


08 


NUM 





09 


NUM 





10 


NUM 





11 


NUM 





12 


NUM 





13 


NUM 


$7FFF 


14 


NUM 





15 


NUM 





16 


NUM 


1 


17 


ADC 


11171 1 


18 



ENT 11711, C1711.E1711 



EXT ALTDEV 

EXT MAKEQ 

EXT MI 

EXT LOG 

EXT RQAQ 

EXT RLAQ 



SCHEDULER CALL 

INITIATOR ADDRESS 

CONTINUATOR ADDRESS 

TIMEOUT ERROR ADDRESS 

DIAGNOSTIC CLOCK 

LOGICAL UNIT 

PARAMETER LOCATION 

CONVERTER, EQUIPMENT, STATION 

REQUEST STATUS 

DRIVER STATUS 

CURRENT LOCATION 

LAST LOCATION PLUS ONE 

DEVICE STATUS 

ERROR CODE AND STARTING LOCATION 

RESERVED 

RESERVED FOR FNR AND CMR 

DRIVER FLAGS 

HARDWARE PARITY CHECK FLAG 

DIAG LU 



D1711 
D1711 
D1711 
D1711 
D1711 
D1711 
1)1711 
D1711 
01 711 
D1711 
D1711 
01 711 
D1711 
D1711 
D1711 
Dl 711 
D1711 
D1711 
Dl 711 
01711 

01711 



ERROR LOGGING ENTRY 
REQUEST A/Q ALLOCATOR 
RELEASE A/Q ALLOCATOR 
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8 
9 
10 
11 
12 
13 
14 
15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

29 



DRIVER MAY BE USED FOR 1713 IF ONLY KEYBOARD IS USED 
PHYSICAL DEVICE TABLE WORDS 



01711 


30 


01711 


31 


01711 


32 


D1711 


33 


D1711 


34 


01711 


35 


1)1711 


37 


D1711 


38 



50 



55 



00f)4 


EQU 


0005 


EQU 


OOOfi 


EQU 


0007 


EOU 


OOOfl 


EQU 


0009 


EQU 


OOOA 


EQU 


OOOB 


EQU 


OOOC 


EQU 


ooon 


EQU 


OOOP 


EQU 


OOOF 


EQU 


0010 


EQU 



TIME(4) 

LU(S) 

REQAP(6) 

CALL(7) 

ERRTAR(P) 

SWITCH(9) 

CORE(IO) 

LASTPl(ll) 

STATUS(12) 

ERRC0P(13) 

C0REIN(13) 

TEMP(15) 

FLAG(16) 



DIAG. CLOCK TIME 

LOGICAL UNIT 

REQUES ADDRESS 

HARDWARE ADDRESS 

REQUEST STATUS 

SWITCH WORD 

CORE ADDRESS 

LAST CORE LOCATION + 1 

HARDWARE STATUS 

ERROR CODE (THIS DRIVER NEVER MASS MEM.) 

TEMP STORAGE 



0171] 


I 40 


D171 


I 41 


D171 


I 42 


D171 


L 43 


0171 


I 44 


D171 


[ 45 


D171] 


I 46 


0171] 


47 


D171 


48 


D171 


49 


D171] 


50 


D171J 


51 


D171] 


I 52 



o 



o 
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CLASS - VER 3.0 08/21/80 00.21.03. 



PAGE 



o 



000B 
0011 
0012 



EQU TMPWRD(ll) 
EQU PARFLG(17) 
EQU DIAGLU(18) 



;0=HARDWARE PARITY CHECK 
DIAGNOSTIC LU 
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MS0S4.1 D1711 54 
**MS0S 4.1** D1711 55 



ERROR CODES 



D1711 



57 



10 



15 



0000 
0001 
0002 
0003 
0005 
OOOfi 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



TIMERR(O) 

LOSDAT(l) 

ALARM(2) 

PARERR(3) 

INTREJ(5) 

EXTREJ(G) 



TIME OUT ERROR 
LOST DATA 
ALARM 

PARITY ERROR 
INTERNAL REJECT 
EXTERNAL REJECT 



D1711 


59 


D1711 


60 


D1711 


61 


D1711 


62 


*MSOS V4 01711 


63 


*MSOS V4 01711 
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D17U 



66 



10 



15 



20 



25 



001 A 


EQU 


XFF00($1A) 




0022 


EOU 


ZER0(*22) 




0002 


EQU 


LPMSK(2) 
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OOOC 


EQU 


TF0RM(12) 


*MSOS V4.0 


0008 


EQU 


HP03F(8) 


*MSOS V4.0 


OOlfi 


EQU 


HFFF0($16) 
BIT2(*25) 




002? 


EQU 


*MSOS V4.0 


002fi 


EQU 


BIT3 $26) 


*MSOS V4.0 


002A 


EQU 


BIT7($2A 


MS0S4.1 


0028 


EQU 


B5A3($28) 




P02C 


EQU 


BIT9($2C) 




002E 


EQU 


BIT11($2E) 




0031 


EQU 


BIT14($31) 




0021 


EQU 


BIT15($21) 




1 


*** TIME 


OUT VALUES ARE IN SECONDS 


003C 


EQU 


INPVAL(60) 


KEYBOARD INPUT Til 


0002 


EQU 


0UTVAL(2) 


KEYBOARD OUTPUT T 


00B5 


EQU 


AFNR($B5) 


FIND NEXT REQUEST 


00B6 


EQU 


AC0MPR($B6) 


COMPLETE REQUEST 


OOEA 


EQU 


DISPAD($EA) 


DISPATCHER 



01711 


68 


D1711 


69 


D1711 


70 


01711 


71 


D1711 


72 


01711 


73 


01711 


74 


01711 


75 


01711 


76 


01711 


77 


01711 


78 


D1711 


79 


01711 


80 


D1711 


81 


01711 


83 


01711 


85 


D1711 


86 


01711 


88 


D1711 


89 


01711 


90 
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PACE 



10 



IB 



20 



25 



30 



35 



40 



45 



50 



5F 



POOOn 40FF 
POOP] OAOO 
P0002 1864 



P0003 0118 



E1711 STQ- I 

ENA TIMERR 
JMP* SETCOD 



DIACNOSTIC TIMER ERROR ENTRY 



P0004 


4 OFF 


P0005 


54B5 


P0006 


187A 


P0007 


582E 


POOOP 


OAF 7 


P0009 


Al 09 


poooa 


fil09 


pooob 


C10A 


pnnnc 


610P 


pooon 


E107 


pnnoE 


CPF4 


pooof 


0353 


popip 


E1P6 


POOH 


C622 


P00J2 


0F49 


POOl 3 


A007 


P0014 


09F1 


pom 5 


011A 


POOlfi 


610A 


POOl 7 


610B 


P0018 


C204 


P0019 


0122 


P001A 


Anoo 


P001C 


A016 


P001D 


610B 


P001E 


1800 


P0020 


0A01 


P0021 


A109 


P0022 


0102 


P0023 


1800 


P0025 


0A07 


P0026 


E107 


P0027 


OOFE 


P0P28 


03 3A 


PO029 


OAOO 


P002A 


6800 


P002C 


E107 


P002D 


0235 


P002E 


610C 


pnn2F 


A02C 


P0030 


0Cf)2 



WREOAL NUM $118 WRITE MODE.ALARM/EOP INT. 
*** PRIVER INITIATOR ENTRY 



11711 



STQ- I 
RTJ- (AFNR) 
JMP* CLROUT 



7(100 



009A 



00A7 



RTJ* 

ENA 

ANP- 

STA- 

LDA- 

STA- 

LDQ- 

LOA* 

OUT 

LOQ- 

LDA- 

ARS 

AND- 

INA 

SAN 

STA- 

STA- 

LDA- 

SAP 

AND 

ANP- 

STA- 

JMP 

SENULL ENA 
AND- 
SAZ 
JMP 

SENBEL ENA 



P3 



CLEAR 

-8 

SWITCH, I 

SWITCH, I 

CORE, I 

COREIN.I 

CALL, I 

WREOAL 

ERROR-* 

REQAO.I 

(ZERO),Q 

9 

LPMSK+5 

-14 

SENULL 

CORE, I 

LASTP1,I 

4,Q 

P3-*-l 

=N$7000 

HFFFO 

TMPWRD.I 

MOTREQ 

1 

SWITCH, I 

SENBEL 

AWRITE 

$07 



SENDCH LOO- CALL, I 

INQ -1 
OUTOUT OUT ERROR -^ 



EXIT 



01 OA 



ENA 
STA ROFLAG 
LPQ- CALL, I 
INP ERROR-* 
STA- STATUS, I 
AND- BIT9 
ENQ OHTVAL 



INITIATOR ENTRY 

CLEAR AND EXIT 

2 CARDS DELETED FOR PSR 83*2129 

CLEAR DEVICE 

CLEAR PASS SWITCH BIT 3 

SET REPEAT LOCATION 

SELECT WRITE MOPE AND 
INTERRUPT ON EOP OR ALARM 

REQUEST ADDRESS 

*MSOS V4.0 

*MS0S V4.0 

GET REQUEST COPE 

CHECK CODE FOR MOTION REQUEST 

SKIP IF NOT MC 

*MSOS V4.0 

*MSOS V4.0 

GET PARAMETER STRING 

SKIP IF NOT ITER. TYPE PARA. 

GET ONLY PARA. IF ITER. 

GET THREE PARAMETERS 

SAVE PARA. LIST 

PROCESS MOTION REQUEST 

CHECK IF READ OR WRITE 

SKIP IF READ MODE TO OUTPUT BELL 

GO PREP. FOR WRITE 

BELL CHARACTER 



OUTPUT ROUTINE 



SAVE STATUS 

READ MODE BIT 

OUTPUT TIME OUT PERIOD 
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01711 


92 




D1711 


93 




D1711 


94 




01711 


96 




D1711 


98 
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D1711 


100 




D1711 


101 




D1711 


102 




D1711 


103 




D17U 


104 




D1711 


105 




D1711 


106 




D1711 


107 




01711 


108 




D1711 


109 


*MSOS V4 


D17H 


110 




1)1711 


111 




01711 


112 


*MSOS V4 


01711 


113 




01711 


114 




01711 


115 


*MSOS V4 


D1711 


116 


*MSOS V4 


D1711 


117 


*MSOS V4 


01711 


118 




D1711 


119 




01711 


120 


*MSOS V4 


D1711 


121 


*MSOS V4 


D1711 


122 


*MSOS V4 


01711 


123 


*MSOS V4 


1)1711 


124 


*MSOS V4 


D1711 


125 


*MSOS V4 


D1711 


126 




D1711 


127 




01711 


128 


MS0S4.1 


01711 


129 




01711 


130 


MS0S4.1 


01711 


131 




01 711 


133 




D1711 


134 




01711 


135 




01711 


137 




1)1711 


138 




01711 


139 




D1711 


140 




01711 


141 




01711 


142 




01711 


143 



1700 ASSEMBLY OF D1711 



CLASS - VER 3.0 



08/21/80 



10 



15 



P0P31 


0101 


SAZ 


SETIME 


P0032 


0C3C 


ENO 


INPVAL 


P0033 


4104 


SETIME STQ- 


TIME, I 


P0P34 


14EA 


JMP- 


(DISPAO) 


PP035 


0000 


CLEAR NUM 





P003fi 


E107 


LPQ- 


CALL, I 


POf'37 


OPFE 


INQ 


-1 


POf'38 


0201 


INP 


1 


P0039 


OB 00 


NOP 





P0P3A 


PP01 


I NO 


1 


PP03R 


0A03 


ENA 


3 


P003C 


0301 


OUT 


1 


P003D 


PBOO 


NOP 





P003E 


0201 


INP 


1 


P003F 


PBOO 


NOP 





P0040 


61 OC 


STA- 


STATUS, I 


P0041 


1CF3 


JMP* 


(CLEAR) 



SKIP IF WRITE MODE 
INPUT TIMEOUT PERIOD 
SET CLOCK 
GO TO DISPATCHER 
SUBROUTINE TO CLEAR DEVICE 



READ TO CLEAR DATA IF ANY 

CLEAR CONTROLLER AND INT. 
READ STATUS 

A = STATUS, Q = DIRECTOR CODE 
RETURN 



00.21.03. P 


1GE 6 


D171] 


144 


D171 


1 145 


D17U 


I 146 


D171 


I 147 


D1711 


148 


D17U 


149 


PI 71] 


150 


D171 


151 


0171 


t 152 


D171 


I 153 


D171] 


I 154 


D1711 


I 155 


D171 


1 156 


D171] 


157 


D171 


I 158 


D171] 


159 


D1711 


[ 160 



o 



r 



o 



o 
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CLASS - VER 3.0 08/21/80 00.21.04. 



PAGE 



*** PRIVER CONTINUATOR ENTRY 



D1711 



162 



10 



15 



20 



2? 



30 



35 



40 



45 



50 



P0042 


40FF 


C1711 


STQ- 


I 


CONTINUATOR 


**MSOS 4.1** D1711 


164 


P0043 


El 07 




LDQ- 


CALL, I 




01711 


165 


P0044 


021F 




INP 


ERROR-* 


GET STATUS 


D1711 


166 


P0045 


610C 




STA- 


STATUS, I 




01711 


167 


P0046 


0A06 




ENA 


6 




01711 


168 


P0047 


031B 




OUT 


ERROR-* 


CLEAR AND SELECT DATA INTERRUPT 


D1711 


169 


P0048 


C10C 




LDA- 


STATUS, I 




D1711 


170 


P0049 


A02E 




AND- 


BIT11 


CHECK FOR MANUAL INTERRUPT 


01711 


171 


P004A 


0111 




SAN 


GOMAN 


SKIP IF MANUAL INTERRUPT 


01711 


172 


P004B 


1833 




JMP* 


NOMAN 




D1711 


173 


P004C 


C110 


GOMAN 


LDA- 


FLAG, I 


MI BEFORE 


01711 


174 


P004D 


0101 




SAZ 


TAGIT1 


NO 


D1711 


175 






* 






2 CARDS DELETED (FOR 97*3168) 


01711 


176 


P004E 


14EA 




JMP- 


. (DISPAD) 


YES, WAIT FOR COMPLETION 


01711 


177 


P004F 


DUO 


TAGIT1 


RAO- 


FLAG, I 


SET FLAG 


D1711 


178 


P0050 


5400 7FFF X 




RTJ 


RQAQ 


REQUEST A/Q ALLOCATION 


D1711 


179 


P0052 


40FF 




STQ- 


I 




01711 


180 






* 






1 CARD DELETED (FOR 97*3168) 


01711 


181 


P0053 


OAOO 




ENA 





RESET FLAG 


01711 


182 


PP054 


6110 




STA- 


FLAG, I 




01711 


183 


P0055 


C4FF 




LDA- 


(I) 


PICKUP SCHEDULER CALL FROM PHYSTB 


01711 


184 


P0056 


6802 




STA* 


SCHCAL 


MAKE UP SCHEDULER CALL 


01711 


185 


P0057 


54F4 




RTJ- 


($F4) 


SCHEDULE MI 


01711 


186 


PP05P 


1200 


SCHCAL 


NIIM 


$1200 




01711 


187 


P0P59 


7FFF X 




ADC 


MI 




D1711 


188 


P005A 


5400 7FFF X 




RTJ 


RLAQ 


RELEASE A/Q 


01711 


189 


P005C 


40FF 




STQ- 


I 




D1711 


190 


P005D 


0A28 




ENA 


B5A3 




D1711 


191 


P005E 


A10C 




AND- 


STATUS, I 


CHECK FOR DATA OR ALARM 


01711 


192 


POORF 


0111 




SAN 


JNOMAN 


SKIP IF DATA OR ALARM 


01711 


193 






* 






2 CARDS DELETED 


01711 


194 






* 






1 CARD DELETED (FOR 97*3168) 


01711 


195 


P0060 


14EA 




JMP- 


(DISPAD) 


EXIT 


01711 


196 


P0061 


181D 


JNOMAN JMP* 


NOMAN 




01711 


197 


P0062 


1803 


ERROR 


JMP* 


INTRNL 


*MSOS V4.0 


D1711 


199 


P0063 


0A06 




ENA 


EXTREJ 


EXTERNAL REJECT 6 


*MS0S V4 01 711 


200 


PP064 


1802 




JMP* 


SETCOD 


*MSOS V4.0 


01711 


201 


P0065 


0A05 


INTRNL 


ENA 


INTREJ 


INTERNAL REJECT 5 


*MSOS V4 D1711 


202 


P0066 


E105 


SETCOD 


LDQ- 


LU.I 




D1711 


203 


P0067 


0FA6 




QLS 


6 




01711 


204 


P0P6P 


0874 




EAQ 


A 




01711 


205 


P0069 


6100 




STA- 


ERRCOD.I 




D1711 


206 


P006A 


C031 




LDA- 


BIT14 




01711 


207 


POOfiB 


B108 




EOR- 


ERRTAB.I 




01711 


208 


POOfif, 


6108 




STA- 


ERRTAB.I 




D1711 


209 


P0P6D 


58C7 




RTJ* 


CLEAR 


CLEAR DEVICE 


01711 


210 


P006E 


C105 




LDA- 


HI, I 




D1711 


211 


P006F 


0111 




SAN 


1 


EXIT IF NOT ASSIGNED 


01711 


212 


P0070 


14EA 




JMP- 


(DISPAD) 




1)1711 


213 


P0071 


5400 7FFF X 




RTJ 


MAKEQ 




01711 


214 


P0073 


OAFE 




FMA 


-1 




01711 


215 
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10 



IF 



POP74 

POP75 
P0076 
PD077 
P0078 
P0079 
P0C17A 
PPG7C 
PP07E 
P007F 
PPOPP 

ponpi 



6104 

E10D 
C105 
9J12 

mil 

182A 
5400 
1400 
C105 
Oil? 
5PB4 
14EA 



7FFF X 
7FFF X 



STA- TIME, I 



LDQ- 

LDA- 

SUR- 

SAN 

JMP* 

LOGIT RTJ+ 
JMP+ 

NOMAN LDA- 
SAN 

CLROUT RTJ* 
JMP- 



ERRCOD.I 

LU,1 

DIAGLU.I 

LOG FT 

COMPRQ 

LOG 

ALTDEV 

LU,I 

N0MAN1-*-] 

CLEAR 

(01SPA0) 



CLASS - VER 3.0 


08/21/80 


00.21.04. 


PJ 


WE 8 


CLEAR TIME 






D17U 


216 


2 CARDS DELETED (FOR 97' 


*3168) 




D171 
D1711 


I 217 
218 


DO NOT REPORT ERROR 
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D171 


I 219 


ON DIAGNOSTIC LU 
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D17U 


220 


**MSOS 4.1** 






D171 


I 221 


**MSOS 4.1** 






D171] 


222 


LOG ERROR IN EF 




**MSOS 4.1** 


0171 
D171] 
0171 
D171 


I 223 
I 224 
I 225 
L 226 


CLEAR AND EXIT 
EXIT 






0171 
D171 


t 227 
I 228 



r \ 
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15 



20 



25 



30 
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POOP? 


PA 20 


NOMAN] 


EM 


$20 


ALARM BIT 


P00P3 


A10C 




AND- 


STATUS, I 


CHECK FOR ALARM 


P00P4 


0117 




SAN 


ALRINT 


SKIP IF ALARM INTERRUPT 


P00P5 


C109 




LPA- 


SWITCH, I 


CHECK FOR MOTION REQUEST 


PO0P6 


0121 




SAP 


CHKD-*-l 


SKIP IF NOT MOTION REQUEST 


P00P7 


185E 




JMP* 


MOTRTN 


MOTION REQUEST RETURN 


POOPP 


OAOR 


CHKD 


ENA 


H 


DATA BIT 


P00P9 


A10C 




AND- 


STATUS, I 


CHECK FOR DATA INTERRUPT 


POOP A 


010F 




SAZ 


DONE 


SKIP IF NOT 


POOPB 


1P1B 




JMP* 


NOTDON 


PROCESS DATA INTERRUPT 


POOPC 


0A40 


ALRINT 


ENA 


$40 


BIT 6 


POORD 


A10C 




AND- 


STATUS, I 


CHECK FOR LOST DATA 


POOPE 


0117 




SAN 


Al 


SKIP IF LOST DATA 


POOPF 


cm 




LDA- 


PARFI.G.I 


CHECK FOR HARDWARE PARITY CHECK 


P0090 


0103 




SAZ 


AO 


SKIP IF NOT 


P0091 


C02A 




LDA- 


BIT7 




P0092 


A10C 




AND- 


STATUS, I 


CHECK FOR PARITY ERROR 


P0093 


0114 




SAN 


A2 


SKIP IF PARITY ERROR 


P0094 


0A02 


AO 


ENA 


ALARM 




P0095 


18D0 




JMP* 


SETCOD 


*MSOS V4.0 


P0096 


0A01 


Al 


ENA 


LOSDAT 


LOST DATA ERROR 1 


P0097 


1PCE 




JMP* 


SETCOO 


*MSOS V4.0 


P009P 


0AO3 


A2 


ENA 


PARERR 


PARITY ERROR 3 


P00^9 


1PCC 


* 


JMP* 


SETCOD 
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P009A 


E107 


OONE 


LDQ- 


CALL, I 


NO, CLEAR 


P009R 


0A02 




ENA 


2 


INTERRUPTS 


P009C 


03C5 




OUT 


ERROR-* 




PP09P 


OAFE 




ENA 


-1 


CLEAR TIME 


P009E 


6104 




STA- 


TIME, I 




POO«F 


02C2 




INP 


ERROR-* 


SAVE STATUS 


POOAO 


61 OC 




STA- 


STATUS, I 




PO0A1 


5400 0072 X 


RTJ 


MAKEQ 




P00A3 


54R6 


COMPRQ 
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(ACOMPR) 


GO TO COMPLETE THE STATUS 
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OPERATION 


P00A8 


0101 






SAZ 


1 




P00A9 
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JMP* 


AWRITE 


YES 


POOAA 


0A02 
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2 


NO, BUSY 


POOAB 


A10C 






AND- 


STATUS, I 




POOAC 
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SAZ 


NFREAD 




pooad 


1P00 


0093 




JMP 


READ 
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E107 




NFREAD 


LDQ- 
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CLEAR INT. AND 


POORO 


0A02 






ENA 


2 


SET READ MODE 


POOR] 


03B0 






OUT 


ERROR-* 


SELECT INT. ON 


P0PB2 


C803 






LPA* 


B9A4A2 


DATA AND ALARM 


POOR 3 


1800 


FF73 




JMP 


OUTOUT 




PP035 


0214 
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EOR- BIT15 


CLEAR BIT 15 FROM 


*MS0S V4 


D1711 
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STA- SWITCH, I 


PREVIOUS MOTION REQUEST 
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C10B 
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GET PARAMETER STRING 
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LLS 4 


GET ONE PARA. FROM STRING 
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D1711 
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POOBC 
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SQZ TRMMCR 


SKIP IF ZERO PARA 
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D1711 
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POOBD 


610B 




STA- TMPWRO.I 


SAVE REMAINDER OF STRING 
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01711 
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POOBE 


OPFD 




INQ -2 


IS IT WEOF 


*MSOS V4 


D1711 


294 


POOBF 


0144 




SQZ TOPFRM 


SKIP IF WEOF 


*MS0S V4 


D1711 


295 


POOCO 


OOFO 




INQ -2 


IS IT REWIND/UNLOAD 
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D1711 
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P00C1 


0141 




SQZ TRMMCR 


SKIP IF YES 
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D1711 
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P00C2 
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JMP* MOTREQ 


GET NEXT PARAMETER 
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D1711 
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TRMMCR 


JMP* DONE 
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P00C4 
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TOPFRM 
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D1711 


303 


P00C5 


A008 




AND- H003F 


SAVE LOWER SWITCHS 


*MSOS V4 


D1711 


304 


P00C6 


BOOO 81C0 


EOR =N$81C0 


SET BIT 15 AND NULL COUNT FOR 7 


*MSOS V4 


D1711 
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P00C8 


6109 




STA- SWITCH, I 


INTO SWITCH 
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D1711 
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porcB 


OAO? 


POCCC 


A109 


porcn 


0822 


POCCE 


0A10 


POOCF 


A109 


POOPO 


0119 


PO0D1 


0A10 


P00D2 


0151 


PO0D3 


0A30 


P00D4 


B109 


PO0D5 


6109 


PP0P6 


014E 


pnrp7 


OAOP 


POOPP 


1800 


POPPA 


014A 


POOPB 


0A20 


POOPC 


A109 


POOPP 


0117 


POPPF 


5P5A 


POOPF 


CP58 


POOEO 


0920 


P0PE1 


B109 


P00E2 


6100 


P00E3 


OAOA 


P00E4 


1PF3 



P00E5 


C109 


P00E6 


A850 


P00E7 


0108 


P00E8 


C109 


PO0E9 


09BF 


POOEA 


6109 


POOEB 


5040 


POOEC 


1802 


POOED 


0A7F 


POOEE 


1800 


pooro 


ClOn 


poon 


0121 


POOF? 


IPC 3 


P00F3 


A026 


PP0F4 


0101 


POOF 5 


18A4 


POOF 6 


F10A 


POOF 7 


E622 


P00F8 


0A04 


P00F9 


A109 


POOFA 


0111 


POOFB 


0F28 


POPFC 


0A7F 


POOFD 


0RB6 


PPPFE 


09FC 



FF4C 



AWRITE ENA 
ANP- 
TRA 
ENA 
AND- 
SAN 
ENA 
SQN 
ENA 
EOR- 
STA- 
SQZ 
ENA 
TOSNO JMP 
N0T1ST SQZ 
ENA 
ANP- 
SAN 
RTJ* 
LDA* 
1NA 
EOR- 
STA- 
ENA 
JMP* 



SWITCH, I 

Q 

$10 

SWITCH, I 
NOTlST-*-l 

$10 

1 

$30 

SWITCH, I 

SWITCH, I 

NOCONT-*-l 

$D 

SENOCH 

NOCONT-*-l 

$20 

SWITCH, I 

N0C0NT-*-l 

CHKTYP 

BIT6T9 

$20 

SWITCH, I 

SWITCH, I 

$A 

TOSND 



FORMATTED 

Q = IF UNFORMATTED 
1ST CHAR. 



YES.CLEAR 1ST 

SKIP IF FORMATTED 

RESET LINE FEED FLAGIF UNFORMATTED 

CHAR. SWITCH 

SEND OUT A 

CONTINUE IF UNFORMATTED 

MARRIAGE 

RETURN 

SKIP IF UNFORMATTED 

58*1183 

SET 

CHECK IF TTY OR DISPLAY. 

DISPLAY9 

TTY. 

AND SEND OUT 

A LINE FEED 

10 SENDCH 
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EQU MOTRTN(*) *MSOS V4.0 
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ANY CANCELS 




AND* 


BIT6A7 
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SAZ 


NOSPCC-*-l 
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DECREMENT 




INA 
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STA- 


SWITCH, I 






RTJ* 


CHKTYP 


CHECK IF TTY OR DISPLAY. 




JMP* 


SENDOI 


DISPLAY. 
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$7F 


TTY. 


SENP01 


JMP 


SENDCH 


GO OUTPUT CHARACTER. 


NOSPCC 


LDA- 


SWITCH, I 


*MSOS V4.0 




SAP 
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SKIP IF NOT MOTION 




JMP* 


NXTMCR 


GET NEXT PARAMETER 




ANP- 


BIT3 


CHECK COMPLETION SWITCH BIT 




SAZ 
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JMP* 


DONE 


YES, FINISHED 




LPO- 


CORE, I 


NO, PICK UP 




LPQ- 


(ZERO),Q 


DATA WORD 




ENA 


4 


UPPER CHAR. 




ANP- 


SWITCH, I 






SAN 


LOWER-*-l 






ORS 


8 


YES, SHIFT 


LOWER 


ENA 


$7F 


NO, CLEAR 




LAQ 


A.Q 


UPPER CHAR. 




INA 
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IS IT AN E.O.T. 
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POOFF 


0111 




SAN 


NOTEOT 


NO 


P0100 


1899 




JMP* 


OONE 


YES, FINISHED 


P0101 


0814 


NOTEOT TRQ 


A 




P0102 


Oil? 




SAN 


NOTNUL-*-l 


NULL 


P0103 


0A7F 




ENA 


$7F 


YES, SUBSTITUTE 


P0104 


0C7F 




ENQ 


$7F 


CANCEL 


pnjos 


09F? 


NOTNIJL 


INA 


-$P 


CARRIAGE RET. 


P0106 


0114 




SAN 


NOTCR-*-l 




PP1P7 


5831 




RTJ* 


CHKTYP 


CHECK IF TTY OR DISPLAY. 


P0108 


C82F 




LDA* 


BIT6T9 


DISPLAY. 


PP1P9 


0920 




INA 


$20 


TTY. 


P010A 


1808 




JMP* 


GOTCR 


CONTROL 


P010B 


0901 


NOTCR 


INA 


1 


NO, FORM OUT 


P010C 


0104 




SAZ 


GOTTAB -*-l 




PP1PP 


0901 




INA 


1 


NO, VERTICAL 


P010E 


0102 




SAZ 


GOTTAB -*-l 


TAB 


P010F 


0902 




INA 


2 


NO, HORIZONTAL 


P0110 


0113 




SAN 


NOCR-*-l 


TAB 


P0111 


C825 


GOTTAB 


LDA* 


BIT6A7 


YES.MODIFY 


P0112 


B109 


GOTCR 


EOR- 


SWITCH, I 


SWITCH 


P0113 


6109 




STA- 


SWITCH, I 




P0114 


0814 


NOCR 


TRQ 


A 


OUTPUT 


P0115 


0980 




INA 


-$7F 


TEST FOR RUBOUT 


P0116 


0112 




SAN 


N0CR1 


SKIP IF NOT A RUBOUT CHARACTER 


P0117 


D81E 




RAO* 


ROFLAG 


SET RUBOUT PRESENT FLAG 


P0118 


1807 




JMP* 


RUBOUT 


DON"T OUTPUT A RUBOUT 


P011 9 


OflOO 


N0CR1 


ENA 





RESET RUBOUT PRESENT FLAG 


P011A 


681B 




STA* 


ROFLAG 




P011B 


0814 




TRQ 


A 


RESTORE ORIGINAL CHARACTER 


P011C 


El 07 




LPQ- 


CALL, I 




P011P 


OPFE 




INQ 


-1 


CHARACTER 


P011E 


032F 




OUT 


TOEROR-* 




PP11F 


CI PA 


RIIBOUT 


LPA- 


CORE, I 


LAST WORD 


PP120 


910B 




SUB- 


LASTP1.I 




PP121 


0109 




SAZ 


COMPLT-*-l 




P012? 


0A04 




ENA 


4 


NO, REVERSE 


PP123 


B1P9 




EOR- 


SWITCH, I 


UPPER LOWER 


PP124 


6109 




STA- 


SWITCH, I 


SWITCH 


PP125 


A025 




AND- 


B1T2 


NOW SET FOR 


P0126 


0118 




SAN 


GOGODI 


UPPER 


P0127 


01 OA 




RAO- 


CORE, I 


YES, INCREMENT 


P0128 


C10A 




LDA- 


CORE, I 


CORE LOCATION 


PP129 


91 OB 




SUB- 


LASTP1.I 


NOW LAST 


P012A 


0114 




SAN 


GOGOOI-*-l 


NO 


P012B 


OAOP 


COMPLT 


ENA 


8 


YES, SET 


P012C 


B109 




EOR- 


SWITCH,! 


COMPLETEO BIT 


P012P 


6109 




STA- 


SWITCH, I 


AND EXIT 


P012E 


1805 




JMP* 


GOGODO 




P012F 


C806 


GOOODI 


LDA* 


ROFLAG 


RUBOUT PRESENT FLAG SET 


PP130 


0102 




SAZ 


GOGODO 


NO 


P0131 


1800 FF10 


JMP 


C1711+1 


YES, GO GET THE NEXT CHARACTER 


P0133 


1800 FEF/ 


1 GOGODO 


JMP 


EXIT 




P0135 


0000 


ROFLAG 


NUM 





RUBOUT FLAG PRESENT 


P0136 


03C0 


BIT6A7 


NUM 


$3C0 




P0137 


OPCO 


BIT0T9 


MUM 


$C0 


*MSOS V4.1 


P0138 


onoo 


CHKTYP 


NUM 





ROUTINE CHECKS FOR TTY OR DISP 


P01 39 


C1P8 




LDA- 


ERRTAB.I 


FETCH TYPE CODE FROM PDT. 
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I 378 
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P013A 


OF44 


ARS 


4 


*MS0S V4.1 




D171 


I 421 




P013B 


A009 


AND- 


LPMSK+7 


SAVE ONLY THE TYPE CODE. 


*MSOS V4.1 


D171] 
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P013C 


09FB 


INA 


-4 


*MS0S V4.1 




D171 


I 423 




P0130 


0101 


SAZ 


1 


*MS0S V4.1 




D171 


I 424 




P013E 


DPF9 


RAO* 


CHKTYP 


RETURN AT +2 IF TTY. A = 0. 


*MSOS V4.1 


D1711 


425 




P013F 


0844 


CLR 


A 


**MS0S 4.1** 




D171 


426 




POMO 


1CF7 


JMP* 


(CHKTYP) 


*MS0S V4.1 




D171] 


427 




P0M1 


ODFE 


READ INQ 


-1 


INPUT A CHAR 




D171 


I 428 




POM? 


OAOO 


ENA 









D1711 


429 




P0M3 


020A 


1NP 


TOEROR-* 






D171 


I 430 




POM 4 


filOF 


STA- 


TEMP, I 






D171] 


431 




P0145 


cm 


LDA- 


PARFLG.I 






D171 


L 432 




P0M6 


01 IB 


SAN 


NOPAR 


SKIP IF HARDWARE PARITY CHECK 




D1711 


433 




POM 7 


C10F 


LDA- 


TEMP, I 
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P0M8 


710F 


SPA- 


TEMP, I 
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0118 


SAN 


NOPAR-*-l 


PARITY OK 
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ENA 


PAR ERR 


PARITY ERROR 3 
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POMB 
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JMP 


SETCOD 


*MSOS V4.0 
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POMP 


1803 


TOEROR JMP* 


TR5 


*MS0S V4.0 




D1711 
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POME 


1800 FF13 


JMP 


ERROR+1 


EXTERNAL REJECT 


*MSOS V4 


01711 
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P0150 


1800 FF10 


TR5 JMP 


ERROR 


INTERNAL REJECT 


*MSOS V4 
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P0152 


0A7F 


NOPAR ENA 


$7F 


YES, STRIP 




D1711 
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PP153 


A10F 


AND- 


TEMP, I 


PARITY BIT 




D17U 
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P0154 
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TRA 


Q 


. 
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ENA 


2 


FORMATTED 
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AND- 


SWITCH, I 






D17U 


446 




P0157 


oion 


SAZ 


ZIFORM-*-l 






01711 


447 




P0158 


0814 


TRQ 


A 


YES, 




D1711 


448 




P01 59 


09F5 


INA 


-$A 


LINE FEED 




D171] 


[ 449 




P015A 


0109 


SAZ 


PASSIT-*-l 


YES, IGNORE IT 




D1711 


450 




P01FB 


09FC 


INA 


-3 


NO.CARRIAGE 




D171] 
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P015C 


0111 


SAN 


1 


RETURN 




D171] 


452 




P0150 


1833 


JMP* 


CARRET 


YES 
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453 




P015E 


098D 


INA 


-$72 


NO, CANCEL 




D171] 


454 




P015F 


0111 


SAN 


1 






0171] 


455 




POlfiO 


1843 


JMP* 


CANCEL 


YES 




D171] 


I 456 




P0161 


0A10 


ENA 


$10 


NO, PASS SWITCH 




D171 1 


457 




P0162 


A109 


AND- 


SWITCH, I 


SET 




D171 


L 458 




P0163 


0101 


SAZ 


1 






D1711 


459 




P0164 


181F 


PASSIT JMP* 


TGODIS 


YES, EXIT 




D171 


L 460 




P0165 


0814 


Z I FORM TRQ 


A 


*MSOS V4.1 




D1711 


461 




P0166 


099E 


INA 


-$61 


LOWER CASE A 


*MSOS V4.1 


D171 


I 462 




P0J67 


0133 


SAM 


ZIFORN 


SKIP IF LESS THAN LOWER CASE A. 


*MSOS V4.1 


D1711 


463 




P0168 


09E5 


INA 


-$1A 


CHECK RANGE TO LOWER CASE Z. 


*MSOS V4.1 


D171 


L 464 




P0169 


0121 


SAP 


ZIFORN 


SKIP IF ABOVE LOWER CASE CHARACTERS*MSOS V4.1 


D171] 


465 




POlfiA 


onnF 


INQ 


-$20 


DROP LOWER CASE BIT. 


*MSOS V4.1 


D171 


L 466 




POMB 


0A04 


ZIFORN ENA 


4 


CHECK IF UPPER CHARACTER. 


*MSOS V4.1 


D171 


467 




POMC 


A109 


ANP- 


SWITCH, I 






P171 


I 468 




POMP 


0113 


SAN 


LOWLOW-*-! 






D171 


I 469 




PP16E 


OAFF 


ENA 


-0 


YES 




D171 


1 470 




PPMF 


0FF8 


LLS 


24 






D171 


1 471 




P0170 


1805 


JMP* 


TOSTO 






D171] 


472 




P0171 


0814 


LOWLOW TRQ 


A 


NO 




D171 


I 473 




P017? 


B01A 


EOR- 


XFFOO 






D1711 


4 74 




P0173 


E10A 


LDQ- 


CORE, I 






0171] 


475 




P0174 


A622 


ANP- 


(ZERO),Q 






D171 


I 476 




P0175 


E10A 


TOSTO LDQ- 


CORE, I 


n 




D1711 


477 


r 



n 



~N 



o 
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P017f. 


6622 




STA- 


(ZERO),Q 




P0177 


C10A 




LDA- 


CORE , I 


LAST LOC 


P017P 


91 OB 




StlB- 


LASTP1.I 




P0179 


01 on 




SAZ 


TGETOU-*- 1 


YES.GETOUT 


P017A 


0A04 




ENA 


4 


+N0, REVERSE 


P017B 


B109 




EOR- 


SWITCH, I 


UPPER-LOWER 


PP17C 


6109 




STA- 


SWITCH, I 


SWITCH 


P0170 


A025 




ANP- 


BIT2 


CHECK IF UPPER 


P017E 


0114 




SAN 


TGODIS 


SKIP IF UPPER 


P017F 


DIOA 




RAO- 


CORE, I 


YES, INCREMENT 


P01P0 


C10A 




LDA- 


CORE, I 


CORE LOCATION 


P0181 


91 OB 




SUB- 


LASTP1.I 


NOW LAST 


P01P2 


0101 




SAZ 


NGOOIS-*-l 




P0183 


18AB 


TGODIS 


JMP* 


GOGODI 


TO EXIT 


P0184 


0A02 


NGODIS 


ENA 


2 




P0185 


A109 




AND- 


SWITCH, I 




P01P6 


0115 




SAN 


NOG-*-l 




P0187 


0A08 


TGETOU 


ENA 


8 


SELECT EOT 


P0188 


E107 




LPQ- 


CALL, I 


INTERRUPT 


P0189 


03C3 


* 


OUT 


TOEROR-* 


1 CARD DELETED 


P018A 


18A4 




JMP* 


GOGODI 


TO EXIT 


P018B 


003C 




ADC 


INPVAL 




P018C 


0A10 


NOG 


ENA 


$10 


TURN ON PASS 


P0180 


B109 




EOR- 


SWITCH, I 


SWITCH 


P018E 


6109 




STA- 


SWITCH, I 




P018F 


18F3 




JMP* 


TGODIS 




P0190 


0A20 


CARRET 


ENA 


$20 


CANCEL SWITCH 


P0191 


A109 




AND- 


SWITCH, I 


SET 


P0192 


0111 




SAN 


1 




P0193 


18F3 




JMP* 


TGETOU 


NO 


P0194 


OACB 




ENA 


-$34 


YES, CLEAR PASS 


P0195 


A109 




AND- 


SWITCH, I 


CANCEL AND 


P0196 


6109 




STA- 


SWITCH, I 


LOWER 


P0197 


E100 




LDQ- 


COREIN.I 


INITIALIZE 


P0198 


410A 




STQ- 


CORE, I 


CORE LOCATION 


pnioo 


0804 


MORUB 


SET 


A 


TO ALL ONES 


P01QA 


6622 




STA- 


(ZERO).Q 






01 91 


\ P MORUBO EQU 


MORUBO(*) 




P019B 


C10B 


* 


LDA- 


I.ASTP1.I 


PSR 89*2925 DELETED 


P019C 


0874 




EAO 


A 




P019D 


0104 




SAZ 


MORUB 1 


SKIP IF ALL DATA ERASED 


P019E 


0804 




SET- 


A 




P019F 


6622 




STA- 


(ZERO),Q 




P01A0 


0D01 




INQ 


1 




P01A1 


18F9 




JMP* 


MORUBO 






01A2 P M0RUB1 


EQU 


M0RUB1(*) 




P01A2 


18E0 




JMP* 


TGODIS 




P01A3 


OACF 


CANCEL 


ENA 


-$30 


CANCEL-SET 


P01A4 


A109 




AND- 


SWITCH, I 


PASS AND 


P01A5 


0930 




INA 


$30 


CANCEL SWITCH 


P01A6 


6109 




STA- 


SWITCH,! 




P01A7 


180B 




JMP* 


TGODIS 




P01A8 






END 







00.21.05. P/ 


\GE 15 


D17U 


478 


D1711 


I 479 


D1711 


480 


D1711 


481 


D171] 


482 


D1711 


483 


D171] 


484 


*MSOS V4 D1711 


485 


*MSOS V4 01711 


486 


D171] 


487 


D1711 


I 488 


D171] 


489 


D171J 


I 490 


*MSOS V4 D1711 


[ 491 


D1711 


492 


D1711 


493 


D1711 


L 494 


D171] 


495 


D171 


L 496 


D171 


I 497 


D171 


498 


*MSOS V4 D171 


I 499 


D171] 


500 


D171 


I 501 


D1711 


502 


D171 


I 503 


D1711 


504 


D171 


I 505 


D1711 


506 


D171 


I 507 


D1711 


508 


D1711 


I 509 


01711 


510 


D171 


I 511 


D171 


I 512 


D171 


I 513 


D171 


I 514 


D171 


I 515 


D171 


I 516 


D171 


L 517 


D171 


1 518 


D171] 


L 519 


D171] 


L 520 


D171] 


521 


01711 


522 


D1711 


523 


D171] 


524 


D171 


I 525 


D171 


I 526 


D171 


I 527 


1)1711 


528 


D171 


I 529 


D171] 


530 


D171] 


531 


D1711 


532 
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67375B STORAGE USED 
6400 ASSEMBLY 



531 STATEMENTS 
4.324 SECONDS 



125 SYMBOLS 
412 REFERENCES 



o 



o 



o 



1700 ASSEMBLY OF 


D1711 








CLASS - 


VER 3.0 


08/21/8 


COMPLETE 


REFERENCE MAP. 














ACOMPR 


00B6 


ABSOLUTE 


4/28 Q 


9/37 










AFNR 


00B5 


ABSOLUTE 


4/27 Q 


5/15 










ALARM 


0002 


ABSOLUTE 


3/13 Q 


9/22 










ALRINT 


008C 




9/06 


9/14 L 










ALTDEV 


0070 


♦EXTERNAL* 


2/35 X 


8/11 










AWRITE 


OOCB 




5/44 


10/10 


12/04 L 








AO 


0094 




9/18 


9/22 L 










Al 


0096 




9/16 


9/24 L 










A? 


009B 




9/21 


9/26 1. 










BIT11 


002E 


ABSOLUTE 


4/18 


7/14 










BIT14 


0031 


ABSOLUTE 


4/19 


7/51 










BIT15 


0021 


ABSOLUTE 


4/20 


11/08 










BIT? 


0025 


ABSOLUTE 


4/13 


13/41 


15/10 








BIT3 


0026 


ABSOLUTE 


4/14 Q 


12/48 










RIT6A7 


0136 




12/36 


13/21 


13/56 L 








BIT6T9 


0137 




12/23 


13/12 


13/57 L 








BIT7 


002A 


ABSOLUTE 


4/15 


9/19 










BIT9 


002C 


ABSOLUTE 


4/17 Q 


5/58 










B5A3 


0028 


ABSOLUTE 


4/16 Q 


7/34 










B9A4A2 


00B5 




10/18 


10/20 L 










CALL 


0007 


ABSOLUTE 


2/50 Q 


5/48 


6/08 


9/29 


13/32 










5/24 


5/55 


7/08 


10/15 


15/21 




CANCEL 


01A3 




14/38 


15/52 L 










CARRET 


0190 




14/35 


15/30 L 










CHKD 


0088 




9/08 


9/10 L 










CIIKTYP 


0138 




12/22 


12/41 


13/11 


13/58 


L 14/07 


14/09 


CLEAR 


0035 




5/18 


6/07 L 


6/19 


7/54 


8/14 




CLROUT 


0080 




5/16 


8/14 L 










COMPLT 


012B 




13/37 


13/47 L 










COMPRQ 


00A3 




8/09 


9/37 L 










CORE 


OOOA 


ABSOLUTE 


2/53 Q 


5/33 


13/35 


13/44 


14/59 


15/12 








5/22 


12/51 


13/43 


14/57 


15/04 


15/13 


COREIN 


OOOD 


ABSOLUTE 


?/57 Q 


5/23 


15/37 








C1711 


004? 




2/32 E 


7/07 L 


13/53 








niAOLU 


0012 


ABSOLUTE 


3/05 Q 


8/07 










nisPAn 


OOEA 


ABSOLUTE 


4/29 Q 


6/06 


7/20 


7/39 


7/57 


8/15 


DONE 


009A 




9/12 


9/29 L 


11/20 


12/50 


13/04 




FRRCOfl 


ooon 


ABSOLUTE 


2/56 


7/50 


8/05 








ERROR 


0062 




5/26 


5/56 


7/12 


9/31 


10/17 


14/23 








5/50 


7/09 


7/43 L 


9/34 


14/22 




ERRTAB 


0008 


ABSOLUTE 


?/51 Q 


7/52 


7/53 


13/59 






EXIT 


0029 




5/53 L 


13/54 










EXTREJ 


0006 


ABSOLUTE 


3/16 Q 


7/44 










fl7]l 


0000 




2/33 E 


5/04 L 










FLAG 


0010 


ABSOLUTE 


2/59 Q 


7/17 


7/21 


7/26 






OOOOPI 


012F 




13/42 


13/46 


13/51 1. 


15/16 


15/24 




cocono 


0133 




13/50 


13/52 


13/54 L 








OOMAN 


004C 




7/15 


7/17 L 










GOTCR 


0112 




13/14 


13/22 L 










GOTTAB 


0111 




13/16 


13/18 


13/21 L 








HFFFO 


0016 


ABSOLUTE 


4/12 Q 


5/38 










H003F 


0008 


ABSOLUTE 


4/11 Q 


11/26 










I 


OOFF 


-SYSTEM- 


5/04 


5/14 


7/07 


7/23 


7/27 


7/33 


INPVAL 


003C 


ABSOLUTE 


4/24 Q 


6/04 


15/25 








INTREJ 


0005 


ABSOLUTE 


3/15 Q 


7/46 










INTRNL 


0065 




7/43 


7/46 1. 










11711 


0004 




2/32 E 


5/14 L 


9/39 
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J NOMA N 


0061 




7/36 


7/40 L 












LASTP1 


OOOB 


ABSOLUTE 


2/54 Q 


5/34 


13/36 


13/45 


15/05 


15/14 


15/42 


LOO 


007B 


♦EXTERNAL* 


2/38 X 


8/10 












LOO IT 


007A 




8/08 


8/10 L 












LOSOAT 


0001 


ABSOLUTE 


3/12 Q 


9/24 












LOWER 


OOFC 




12/55 


12/57 L 












LOWI.OW 


0171 




14/51 


14/55 L 












LPMSK 


0002 


ABSOLUTE 


4/09 


5/30 


14/04 










LU 


0005 


ABSOLUTE 


2/48 Q 


7/47 


7/55 


8/06 


8/12 






MAKEQ 


00A2 


♦EXTERNAL* 


2/36 X 


7/58 


9/36 










MI 


0059 


♦EXTERNAL* 


2/37 X 


7/-31 












MORUB 


0199 




15/39 L 














MORUBO 


01 9B 




15/41 Q 


15/49 












M0RIIB1 


01A2 




15/45 


15/50 Q 












MOTREQ 


00B9 




5/40 


11/10 L 


11/19 










MOTRTN 


00E5 




9/09 


12/32 Q 












NFREAD 


OOAF 




10/13 


10/15 L 












NGODIS 


0184 




15/15 


15/17 L 












NOCONT 


00E5 




12/15 


12/18 


12/21 


12/35 L 








NOCR 


0114 




13/20 


13/24 L 












N0CR1 


0119 




13/26 


13/29 L 












NOO 


018C 




15/19 


15/26 L 












NOMAN 


007E 




7/16 


7/40 


8/12 L 










N0MAN1 


0082 




P/13 


9/04 L 












NOPAR 


0152 




14/15 


14/18 


14/24 L 










NOSPCC 


OOFO 




12/37 


12/45 L 












NOTCR 


01 OB 




13/10 


13/15 L 












NOTOON 


00A6 




9/13 


10/07 L 












NOTEOT 


0101 




12/60 


13/05 L 












NOTNUL 


0105 




13/06 


13/09 L 












NOT 1ST 


OOPA 




12/09 


12/18 L 












NXTMCR 


00B6 




11/07 L 


12/47 












OUTOIIT 


0028 




5/50 L 


10/19 












OUTVAL 


0002 


ABSOLUTE 


4/25 Q 


5/59 












PARERR 


0003 


ABSOLUTE 


3/14 Q 


9/26 


14/19 










PARFI 


0011 


ABSOLUTE 


3/04 Q 


9/17 


14/14 










PASSIT 


0164 




14/32 


14/42 L 












P3 


00 1C 




5/36 


5/38 L 












READ 


0141 




10/14 


14/10 L 












REQAD 


0006 


ABSOLUTE 


2/49 Q 


5/27 












RLAQ 


005B 


♦EXTERNAL* 


2/40 X 


7/32 












ROFLAG 


0135 




5/54 


13/27 


13/30 


13/51 


13/55 L 






ROAQ 


0051 


*EXTERNAL* 


2/39 X 


7/22 












RUBOIJT 


011F 




13/28 


13/35 L 












SCHCAL 


0058 




7/28 


7/30 L 












SENI3EL 


0025 




5/43 


5/45 L 












SENDCH 


0026 




5/48 L 


12/17 


12/44 










SEND01 


OOEE 




12/42 


12/44 L 












SENIII.L 


0020 




5/32 


5/41 L 












SETCOO 


0066 




5/06 


7/45 


7/47 L 


9/23 


9/25 


9/27 


14/20 


SETIME 


0033 




5/60 


6/05 L 












STATUS 


OOOC 


ABSOLUTE 


2/55 Q 


6/18 


7/13 


9/05 


9/15 


9/35 










5/57 


7/10 


7/35 


9/11 


9/20 


10/12 




SWITCH 


0009 


ABSOLUTE 


2/52 


11/07 


12/13 


12/38 


13/39 


14/50 


15/31 








-5/20 


11/09 


12/14 


12/40 


13/40 


15/08 


15/35 








5/21 


11/25 


12/20 


12/45 


13/48 


15/09 


15/36 








5/42 


11/28 


1 2/25 


12/54 


13/49 


15/18 


15/53 
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9/07 


12/05 


12/26 


13/22 


14/28 


15/27 








10/08 


12/08 ■ 


12/35 


13/23 


14/40 


15/28 


TAG IT 1 


004F 




7/18 


7/21 L 










TEMP 


OOOF 


ABSOLUTE 


2/58 Q 


14/13 


14/16 


14/17 


14/25 




TFORM 


OOOC 


ABSOLUTE 


4/10 Q 


11/29 










TGETOU 


0187 




15/06 


15/20 L 


15/33 








TGODIS 


0183 




14/42 


15/11 


15/16 L 


15/29 


15/51 


15/56 


TIME 


0004 


ABSOLUTE 


2/47 


6/05 


7/60 


9/33 






TIMERR 


0000 


ABSOLUTE 


3/11 Q 


5/05 










TMPWRO 


OOOB 


ABSOLUTE 


2/60 Q 


5/39 


11/10 


11/14 






TOE R OR 


0140 




13/34 


14/12 


14/21 L 


15/22 






TOPFRM 


O0C4 




11/16 


11/25 L 










TOSM) 


0008 




11/30 


12/17 L 


12/28 








TOSTO 


0175 




14/54 


14/59 L 










TRMMCR 


00C3 




11/13 


11/18 


11/20 L 








TP5 


0150 




14/21 


14/23 L 










WREOAL 


0003 




5/09 L 


5/25 










XFFOO 


001A 


ABSOLUTE 


4/07 


14/56 










ZERO 


0022 


ABSOLUTE 


4/08 Q 


5/28 


12/52 


14/58 


14/60 


15/40 


7IF0RM 


0)65 




14/29 


14/43 L 










7IF0RN 


01 6B 




14/45 


14/47 


14/49 L 
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ADDRESS 

0000 
00?3 



LENGTH 
0023 



BINARY CONTROL CARDS. 

NAM DUMMY DECK- ID M30 MSOS 5.0 
END 



SUMMARY 



ENTRY POINT NAMES AND ADDRESSES. 

CDUMMY — 0001 IDUMMY -- 0000 



EXTERNAL SYMBOLS. 

DUMALT L0G1 



L0G1A 
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NAM DUMMY DECK- ID M30 MSOS 5.0 
DUMMY DEVICE DRIVER 

MASS STORAGE OPERATING SYSTEM VERSION 5.0 
SMALL SYSTEMS DIVISION, LA JOLLA, CALIFORNIA 
COPYRIGHT CONTROL DATA CORPORATION 1976 



SUMMARY- 110 DUMMY 2 

DUMMY 3 

DUMMY 4 

DUMMY 5 

DUMMY 6 



10 



15 



************************************************************************ DUMMY 8 

* THERE ARE TWO FUNCTIONS THAT THIS DRIVER IS DESIGNED TO PERFORM.* DUMMY 9 

* IT CAN FUNCTION AS A NORMAL DRIVER WITH A LOGICAL UNIT TO DO * DUMMY 10 

* -DO NOTHING- FUNCTIONS, OR IT CAN FUNCTION AS AN ALTERNATE * DUMMY 11 

* ■ FOR A LOGICAL UNIT SO THAT DEVICE FAILURES FOR THE UNIT WILL * DUMMY 12 

* BE LOGGED ON THE COMMENT DEVICE BUT REQUIRE NO OPERATOR RESPONSE* DUMMY 13 

* AND REPORT AN ERROR TO THE CALLER. * DUMMY 14 
************************************************************************ DUMMY 1 5 



20 



0000 P 

0001 P 

0002 P 



DRIVER ENTRY POINTS 

ENT IDUMMY DUMMY INITIATOR ENTRY 
ENT CDUMMY DUMMY CONTINUATOR ENTRY 
ENT EDUMMY DUMMY ERROR ENTRY 



DUMMY 
DUMMY 
DUMMY 
DUMMY 



17 
18 
19 
20 



25 



30 



35 



40 



00B5 
OOEA 
0005 
0033 
0002 
0009 
0023 
00B6 
00F4 



DRIVER EXTERNAL 
EXT L0G1 
EXT DUMALT 
EXT L0G1A 



POINTS 

L0G1 TABLE IN SYSDAT 
DUMMY LOGICAL UNIT 
L0G1A TABLE IN SYSDAT 



DRIVER EQUIVALENCES 

EQU AFNR($B5) ADDRESS OF FIND NEXT REQUEST 

EQU ADISP($EA) ADDRESS OF DISPATCHER 

EQU ELU(5) **MSOS 

EQU ZR0BIT($33) TABLE OF COMPLEMENT SINGLE BIT MASKS 

EQU LPMSK($2) TABLE OF RIGHT JUSTIFIED MASKS 

EQU ESTAT1J9) PDT STATUS 1 WORD 

EQU 0NEBIT($23) TABLE OF SINGLE BIT MASKS 

EQU AC0MPR($B6) ADDRESS OF COMPLETE REQUEST 

EQU AM0NI($F4) ADDRESS OF MONITOR 



DUMMY 
DUMMY 
DUMMY 
DUMMY 



DUMMY 
DUMMY 
DUMMY 
,1** DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 



22 
23 
24 
25 



27 
28 
29 
30 
31 
32 

33 
34 

35 
36 



45 



50 



55 



"") 



POOOO 40FF IPUMMY STQ- I SAVE ADDRESS OF PDT IN I -REG. 

P0001 54B5 • CDUMMY RTJ- (AFNR) LOOK FOR MORE REQUESTS 

P0002 14EA EDUMMY JMP- (ADISP) NO REQUESTS— EXIT TO DISPATCHER 

P0003 E105 LDQ- ELII.I GET LOGICAL UNIT NUMBER 

P0004 C600 7FFF X LDA+ L0G1A.Q GET PDT ADDRESS FOR THIS LU 

POOOfi 90FF SUB- I MINUS MY PDT ADDRESS 

P0007 0113 SAN ASALT SKIP IF REQUEST AS ALTERNATE DEVICE 

P0008 54B6 RTJ- (ACOMPR) COMPLETE REQUEST 

PPODP JPF7 JMP* CDUMMY GO TO SEE IF MORE REQUESTS 

POODA 7FFF X LIIDUMY ADC DUMALT DUMMY LOGICAL UNIT 

POOOB 0500 ASALT UN LOCK OUT OTHER CHANGES TO L0G1 

POOOC CE16 LDA* (AL0G1),Q GET L0G1 ENTRY FOR REQUESTED L.U. 

POOOD A040 AND- ZROBIT+13 RESTORE UNIT 

POOOE A03F AND- ZROBIT+12 CLEAR MESSAGE FLAG BIT 

* 1 CARD DELETED 

POOOF 6E13 STA* (ALOGl).Q MODIFY L0G1 ENTRY 



DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 
DUMMY 



38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



o 



o 



^ 



10 



15 



20 



1700 ASSEMRLY OF DUMMY 



P0010 
POO]? 
P0013 
P001 4 
POM 5 
POO] 6 
P001 7 
P001P 
POO] 9 
P00]/\ 
P001B 
P001C 
P001D 
P001E 
P001F 
P00?0 
P0021 
P0022 
P0023 



E600 
C109 
A011 
B03? 
6109 
480A 
54B6 
0500 
EP07 
C205 
0115 
C105 
6205 
54F4 
2000 
0000 
1PDF 
7FFF X 



0005 X 



L0Q+ 
LDA- 
AND- 
EOR- 
STA- 
STQ* 
RTJ- 
IIN 
LDQ* 
LDA- 
SAN 
LDA- 
STA- 
RTJ- 
NUM 
ADR PHY NUM 
BUSY JMP* 
AL0G1 ADC 
END 



L0G1A.Q 

ESTAT1.I 

LPMSK+15 

ONERIT+15 

ESTAT1.I 

ADRPHY 

(ACOMPR) 



ADRPHY 

ELU.Q 

BUSY 

ELU.I 

ELU.Q 

(AMONI) 

$2000 



CDUMMY 

L0G1 



CLASS - VER 3.0 08/21/80 00.21.07. 
MAKE 0-REO. POINT TO FAILED L.U. PDT 

SET ERROR INDICATOR IN V-FIELD 

SAVE ADDRESS OF FAILED L.U. PDT 

COMPLETE REQUEST 

LOCK OUT OTHER ENTRIES TO FAILED DRIVER 

IS DRIVER BUSY (L.U. NOT ZERO) 

SKIP IF BUSY 

SET BUSY SO ANY NEW REQUESTS WILL 

BE THREADED 
PART 1 INDIRECT REQUEST 

PDT ADDRESS OF FAILED DRIVER 
GO TO LOOK FOR MORE REQUESTS 



PAGE 



DUMMY 


54 


DUMMY 


55 


DUMMY 


56 


DUMMY 


57 


DUMMY 


58 


DUMMY 


59 


DUMMY 


60 


DUMMY 


61 


DUMMY 


62 


DUMMY 


63 


DUMMY 


64 


DUMMY 


65 


DUMMY 


66 


DUMMY 


67 


DUMMY 


68 


DUMMY 


69 


DUMMY 


70 


DUMMY 


71 


DUMMY 


72 



56747B STORAGE USED 
6400 ASSEMBLY 



71 STATEMENTS 
0.515 SECONDS 



20 SYMBOLS 
52 REFERENCES 



1700 ASSFMRLY OF 


DUMMY 








CLASS 


COMPLETE 


REFERENCE MAP. 










ACOMPR 


OOBfi 


ABSOLUTE 


2/40 


2/51 


3/09 




AD ISP 


OPEA 


ABSOLUTE 


2/34 Q 


2/46 






APR PHY 


OP20 


. 


3/08 


3/11 


3/18 L 




AFNR 


00B5 


ABSOLUTE 


2/33 Q 


2/45 






ALOP1 


002? 




2/55 


2/59 


3/20 L 




AMONI 


00F4 


ABSOLUTE 


2/41 Q 


3/16 






ASALT 


OOOB 




2/50 


2/54 L 






BUSY 


0021 




3/13 


3/19 L 






CDUMMY 


0001 




2/22 E 


2/45 L 


2/52 


3/19 


DtlHALT 


OOOA 


♦EXTERNAL* 


2/28 X 


2/53 






E DUMMY 


0002 




2/23 E 


2/46 L 






ELU 


0005 


ABSOLUTE 


2/35 Q 


2/47 


3/12 


3/14 


ESTAT1 


0009 


ABSOLUTE 


2/38 Q 


3/04 


3/07 




I 


OOFF 


-SYSTEM- 


2/44 


2/49 






IPUMMY 


onon 




2/21 E 


2/44 L 






LOCI 


0022 


*EXTERNAL* 


2/27 X 


3/20 






LOC1A 


0011 


♦EXTERNAL* 


2/29 X 


2/48 


2/60 




LPMSK 


0002 


ABSOLUTE 


2/37 Q 


3/05 






LIIOIIMY 


OOOA 




2/53 L 








ONEIHT 


0023 


ABSOLUTE 


2/39 


3/06 






ZRORIT 


0033 


ABSOLUTE 


2/36 


2/56 


2/57 





CLASS - VER 3.0 08/21/80 00.21.07. 



PAGE 



3/15 



S2)W=::L: 



o 



o 



TIME 



PAGE 2 



o 

PATE: 08/27/P0 



n 



on?? 




* 






0033 




* 






0034 




• 


MESSAGE 


0035 P00P7 


F^or>? 


mso 


ALF 


Z.PRESENT TIME- Z 


P0P2P 


4553 








P00?9 


454E 








pon?A 


54?0 








POOPR 


5440 








POOPC 


4045 








poo?n 


?P?0 








003P P00?E 


3030 


HRMSG 


ALF 


Z,00:00:OOZ 


poo?r 


3A30 








P0030 


303A 








P0031 


3030 








0037 


ooon 




Equ 


MSGL(*-MSG) 


0038 




* 






0030 P0032 


0000 


INC 


NUM 


NUMI 


0040 






END 





NUMBER OF TIMES THROUGH THE PROGRAM 



PGM= 0033 ( 51) COM = 0000 ( 0) DAT = 0000 ( 



0) 



o 



r> 



TIME 



PACE 



HATE: 08/27/80 



EQUIVALENCES 



PEF.LINE 


NAME 


VALUE 




REFERENCED AT LINE NUMBER 




onon 


I 


OOFF 


(000255) 






ooofi 


ADISP 


OOEA 


(000234) 


0023, 0029 




0007 


LIST 


OOFB 


(000251) 


0022 




OOOP 


PR I 


0005 


(000005) 
(000011) 


0022, 0022, 0028 




0037 


MSOL 


OOOB 


0022 






TIME 




PAGE 4 DATE : 


08/27/80 



S Y M B 


L S 








OFF-LINE 


NAME 


APPRESS 


REFERENCED AT LINE NUMBER 




0009 


no 


0000 


0030 




0010 


L00P1 


0000 


002P 




0024 


ENWRT 


001 B 


0022 




0030 


ENDPRG 


0024 


0027, 0030 




0035 


MSG 


0027 


0022, 0037 




003 fi 


HRMSG 


002E 


0012, 0017, 0018, 0021 




0039 


INC 


0032 


0024, 0025 






TIME 


PAGE 5 DATE : 


08/27/80 



EXTERNALS 



OFF. LINE 


NAME 


VALUE 


REFERENCED AT LINE NUMBER 




0002 


HORTO 


0001 


0010 




0003 


MINTO 


OOOfi 


0013 




0004 


SECON 


OOOF 


0019 




0005 


CONVFR 


0011 


0011, 0014, 0020 






TIME 


PAGE 6 DATE: 


OP/27/80 



*** ALPHABETICAL SORT OF SYMBOLS*** 



APISP 0006 CONVFR 0005 ENDPRG 0030 ENWRT 0024 GO 0009 

HORTO 0002 HRMSG 003* I 0000 INC 0039 LIST 0007 

L00P1 0010 MINTO 0003 MSG 0035 MSGL 0037 PR I 0008 

SECPN 00P4 



r~\ 



^ 



HANG 



PAGE 1 



o 

DATE: 08/27/80 



O 



0001 
ppp? 

OOP? P0000 54F4 

pop? ppppi 13P4 
ppo? poop? oop3 

0PP3 

PP03 P00P3 14EA 

PPP4 

0P04 PPPP4 54F4 

PPPd PPPP5 J3P5 

PP04 PPPP6 0P03 

PPP5 

0005 P0007 14EA 

0PP6 

0007 

0008 

0008 P0008 54F4 

0008 P0PP9 1301 

0008 P000A 7FF6 

0009 POOPB 5P0P 

0010 PPOOC 5817 

0011 POOOD 58?1 
OP 12 

0012 POOOE 54F4 
0012 POOOF 1305 
001? P0010 7FFF 
0013 

0P13 POOH 14EA 
0014 

0015 PPP1? 5806 
0016 

0016 PP013 14EA 
0017 

0018 PPP14 58PF 

PP19 

0010 P0015 IAEA 

00?0 

00?] P0016 5818 

00?? 

OP??. PPP] 7 14FA 



NAM HANG SET UP SCHSTK, INTSTK, VOLATILE, AND LOG? 
GO] SCHDLE P0?-C01-1,4,X,0 



OISP 



GO? SCHDLE 003-GO?-l,5,X,0 



PISP 



G03 SCHDLE G01-G03-1 ,1 ,X,0 



RTJ* Rl-1 
RTJ* R2-1 
RTJ* R3-1 
G04 SCHDLE C04-G04-1,5,X,0 



DISP 



CI RTJ* Rl-1 
OISP 



C? RTJ* R?-l 
PISP 



C3 RTJ* R3-1 
PISP 



HANfi 



PAPE 



PATE: 0P/27/P0 



po?4 pomp oooo 
0025 R] 

OP?5 PPPlo 54F4 
PP25 PP01A 0"36 
0025 PP01B 7FF7 
P0P1C PPOO 
0025 POOIP 0008 

0025 P001E 0060 
P001F 0037 P 

0026 PPP2P 0000 
P0021 0000 

0027 P0022 1CF5 
002P * 
0020 

0030 * 

0P31 P0023 OPOO 
P032 R2 

0P32 PP024 54F4 
0P32 PP025 0036 
PP32 PP026 7FEE 

POP27 PPOO 
PP32 P002P OPPP 
PP32 PPP29 0060 

PPP2A 0037 P 

0033 P0P2B 0000 
P002C OPOO 

0034 P002P 1CFS 

0035 * 
0P36 

0037 * 

003R P002E 0000 
0039 R3 

0030 P002F 54F4 
0039 P0030 0936 
0039 P0P31 7FE5 

P0032 0000 
0039 P0O33 0006 

0039 P0034 0060 
PP035 0097 P 

0040 P0036 1CF7 

0041 * 

0042 * 

0043 P0037 0060 BUF 

0044 P0097 PP60 HBF 
P045 



NUM ENTRY POINT 

FREAD P,C1-R1-J,BUF,96,B,3,6,,X,0 



NUM 0,0 

JMP* (Rl-1) 
* 
************************************************************************ 



NUM ENTRY POINT 

FREAD P,C2-R2-1,BUF,96,B,3,6,,X,0 



NUM 0,0 

JMP* (R2-1) 
* 
************************************************************************ 



NUM ENTRY POINT 

FREAD 6,C3-R3-1,MBF,96,B,3,6, ,X,0 



JMP* (R3-1) 



BSS BI)F(96) 
BSS MBF(96) 
END 



PfM= PPF7 ( 247) COM = PPPO ( 0) DAT = POOO ( 



n) 



O 



n 



v 



o 



HANG 



PAGE 3 



DATE: 08/27/80 



EQUIVALENCES 



OFF. L INF NAME VALUE REFERENCE!! AT LINE NUMBER 

0000 I OOFF (000255) 



HANG 



PAGE 4 



PATE: 08/27/80 



S Y M B 


L S 




• 






PEF.LINF 


NAME 


ADDRESS 


REFERENCED AT 


LINE 


NUMBER 


0002 


C01 


0000 


0002, 0008 






0004 


G02 


' 0004 


0002, 0004 






0008 


GO 3 


0008 


0004, 0008 






0012 


G04 


OOOE 


0012, 0012 






0015 


CI 


0012 


0025 






0018 


C2 


0014 


0032 






0021 


C3 


0016 


0039 






0025 


Rl 


0019 


0009, 0015, 


0025, 


0027 


0032 


R2 


0024 


0010, 0018, 


0032, 


0034 


0039 


R3 


002F 


0011, 0021, 


0039, 


0040 


0043 


BUF 


0037 


0025, 0032 






0044 


MBF 


0097 


0039 








1 


HANG 


PAGE 5 




DATE: 08/27/80 



*** ALPHABETICAL SORT OF SYMBOLS*** 



PIIF 


00^3 


CI 


0015 C2 


0018 C3 


G02 


0004 


G03 


0008 G04 


0012 I 


Rl 


0025 


R2 


0032 R3 


0039 



0021 G01 0002 

0000 MBF 0044 



o 



r 



r~\ 



o 



n 



wpisk 



PAGE 1 



DATE: 08/?7/PO 



0001 
000? 
0003 
0004 

0005 

0006 
0007 
OOOP 
0009 
0010 
0011 
001? 
0013 
0014 
0015 
0015 
0015 
0015 

0015 
0015 

0016 



POOOO 

POOOO 
P0001 
POOO? 
P0003 
P0004 

P0005 
P0006 
P0007 
POOOP 
POOOO 
POOOA 
POOOR 
POOOC 
POOOP 



0060 
0000 
C0C1 
6P19 
0P4? 
5P18 
0000 

54F4 
4C05 
0003 
0000 
OOOP 
0060 
0000 
0000 
0000 



MAM WPISK 
TOASC MAC H,A 

EXT* HEXASC 

RTJ HEXASC 

APC* 'M'.'A' 

EMC 

ENT FIRST 
BUFF BSS BUFF (96) 

ORG BUFF 
FIRST LOA- $C1 

STA* CSA 

CLR Q 

RTJ* CKREQ 

NUM 



WRITE IN DISK SCRATCH AREA 



LOOP 
CI 



GET START OF SCRATCH 



ERROR COUNTER 



FW1 FWRITE 8,C1,BUFF,96,B,0,5,,,1 



APC 0,0 



SECTOR ADDRESS 



001P 


POOOF 


0P4? 




00J9 


POOOF 


5P0C 


C2 


00?0 






FW? 


00?0 


P0010 


54F4 




00?0 


pooh 


4C05 




00?0 


P001? 


OOOF P 






P001 3 


0000 




00?0 


P001 4 


OOOR 




00?0 


P0015 


0060 






P001 6 


0000 P 




00?1 


P0017 


0000 






P001P 


0000 




00?? 


P0019 


1REP 




00? 3 


P001A 


0000 


CSA 



CLR 

RTJ* CKREO 

FWRITE P,C?,BUFF,96,B,0,5,,,1 



ADC 0,0 



JMP* 
NUM 



LOOP 




SECTOR ADDRESS 



CURRENT SECTOR ADDRESS 



WDISK 



PAGE 



DATE: 0R/27/R0 



0025 


0009 
0004 




EQU 


ILSB(9),ITHD(4) 


oo?fi pooib 


0000 


CKREQ 


MJM 





0027 P001C 


084 4 




CLR 


A 


0028 P001D 


OFF. 2 




LLS 


2 


0029 P001E 


0111 




SAN 


ERROR 


0030 P001F 


1PIE 




JMP* 


OK 


0031 P0020 PCFA 


ERROR 


RAO* 


(CKREQ) 


0032 P0P2] 


ECF9 




LOO* 


(CKREO) 


P033 P0022 


OPFA 




INQ 


-5 


0034 PO023 


0161 




SOP 


PRNTIT 


P03F POP24 


182 5 




JMP* 


EXIT RETRY THE REQUEST 


0036 POP25 


POOO 


PRNTIT 


APD 


=A=0 PRINT ERROR MESSAGE 


P002fi 


3P30 








0037 P0027 


6P15 




STA* 


EMSG+4 


0038 PP028 


E8F2 




LPQ* 


CKREQ 


003<i P0029 


C209 




LPA- 


ILSR.Q 


0040 PP02A 


6800 




STA* 


SEC 


004] 






TOASC SEC.EMSO+1 


0041 P002B 


5800 X 








P002C 


7FFF X 








0041 P0020 


OOOA 








P002F 


OOOB 








0042 




EWR 


FWRITE 4,EC0MP,EMSG,5,A,0,5,,,1 


0042 P002F 


54F4 








0042 P0030 


4C05 








0042 P0031 


003D P 








P0032 


0000 








0042 P0033 


1004 








0042 P0034 


0005 








P0035 


0038 P 








0043 






OISP 




0043 P0036 


14EA 








0044 P0037 


0000 


SEC 


MUM 





0045 P003P 


533D 


EMSG 


ALF 


5,S=0000 Q=0 


PPP3P 


3030 








P003A 


3030 








P003P 


2PF.1 








PP03C 


3P30 








004 6 


0030 P 


ECOMP 


EOU 


EC0MP(*) 



0048 P0030 OP44 
0040 pnp3F 6CPC 

0050 P003F E8PB 

0051 P0040 C204 

0052 PP041 0101 
0053 

0053 P0042 14EA 

0054 PO043 CPP6 

0055 P0044 6209 



OK 



NOTBSY 



CLR A 
STA* (CKREQ) 
LDQ* CKREQ 
LOA- ITHO.Q 
SAZ NOTBSY 
PISP 

LOA* CSA 
STA- ILSB.Q 



o 



o 



o 



o 



whisk 



PACE 



DATE: Ofl/?7/PO 



00F6 P004F P400 X 
P0046 7FFF X 
OOF7 

OOFP P0047 01 ?3 
PPF" PPPdP PPP1 
0060 PP049 PPP1 
OOP) P004A 1CP0 



EXIT 



SUB MAXSEC 

EXT MAXSEC 
SAP PONE 
RAO* CSA 
RAO* CKREQ 
JMP* (CKREQ) 



00f>3 P004R 0111 PONE SAN ALLPON 
0064 D1SP 

0064 P004C 14EA 

OOfiF ALLDON FWRITE 4,P0NE2,MSG,?,A,0,5,, ,1' 

0065 P004P 54F4 
P06F P004E 4C0F 
006F P004F P0F5 P 

P0050 0000 
0065 P00F1 1004 

0065 P005? 000? 
P0053 005P P 

0066 

0066 P00F4 14EA 
0067 

0067 P005F F4F4 
0067 P00F6 FP01 

0067 P00F7 0000 P 

0068 PPPFP 44 4F MSO 
P0PF9 4F45 

PP60 



PISP 
PONE? RELEAS FIRST, PISP,, 1 



/»LF ?,PONE 
ENP FIRST 



PGM= 005A ( 90) COM = 0000 ( 



0) DAT = 0000 ( 



0) 



whisk 



PAGE 



.DATE: 08/27/80 



EQUIVALENCES 



OFF. LINE NAME 



VALUE 



REFERENCED AT LINE NUMBER 



0000 I OOFF (000255) 

oo?5 iL.sn onop (000009) 0039, 0055 

0P?5 ITHD 0004 (000004) 0051 

1 WDISK PAGE 5 



DATE: 08/27/80 



S Y M R 


L S 










DEF.LINE 


NAMF 


ADDRESS 


REFERENCED AT 


LINE NUMBER 


0007 


FIRST 


0000 


0007, 


0067 




0008 


BUFF 


0000 


0009, 


0015, 


0020 


001? 


LOOP 


0002 


0022 






0013 


CI 


0003 


0015 






0015 


FW1 


0005 








0019 


C2 


OOOF 


0020 






0020 


FW2 


0010 








0023 


CSA 


001 A 


0011, 


0054, 


0059 


0026 


CKREQ 


001B 


0013, 


0019, 


0031, 0032, 0038, 0049 








0050, 


0060, 


0061 


0031 


ERROR 


0020 


0029 






003fi 


PRNTIT 


0025 


0034 






0042 


EWR 


002F 








0044 


SEC 


0037 


0040, 


0041 




0045 


EMSG 


0038 


0037, 


0041, 


0042 


0046 


ECOMP 


003D 


0042 






0048 


OK 


003D 


0030 






0054 


NOTBSY 


0043 


0052 






0060 


EXIT 


0049 


0035 






0063 


PONE 


004R 


0058 






006 5 


ALL DON 


004 D 


0063 






0067 


PONE? 


0055 


0065 






0068 


MSG 


0058 


0065 







v ; 



o 



wmsk 



PAGE 



PATE: (18/27/80 



o 



EXTERNALS 



PEF.LINE NAME 



VALUE 



004) 
0057 



MEXASC 00?C 

MAXSEC 0046 

WDISK 



REFERENCED AT LINE NUMBER 



0041 

0056 

PAGE 7 



DATE: 08/27/80 



*** ALPHABETICAL SORT OF SYMBOLS*** 



AI.LD0N 0065 BUFF 0008 CI 

CSA 0023 DONE 0063 D0NE2 

ERROR 0031 EWR 0042 EXIT 

FW? 0020 HEXASC 0041 I 

LOOP 001? MAXSEC 0057 MSG 



PRNTIT 0036 SEC 



0044 



0013 C2 

0067 ECOMP 

0060 FIRST 

0000 ILSB 



0019 CKREQ 0026 

0046 EMSG 0045 

0007 FW1 0015 

0025 IT HO 0025 



0068 NOTBSY 0054 OK 



0048 



n 



n 





RHA 






PAGE 1 


DATE: 08/27/80 


nopi 






NAM 


RHA 


CONVERT HEX NUMBER TO ASCII 


nno? 




C?PIO 


MAC 






0003 






RTJ* 


CNVDIG 




0004 






QLS 


8 




0005 






STQ* 


(ANSAD) 




OOOfi 






RTJ* 


CNVDIG 




0007 






APQ* 


(ANSAD) 




OOOP 






STQ* 


(ANSAD) 




0009 






EMC 






0010 






ENT 


EEAHEX 




0011 






ENT 


HEXASC 




001? POOOO 


000] 




BSS 


ANSAD 




0013 


0001 P 


HEXASC 


EQU 


HEXASC*(*) 




0014 POOO] 


oooo 


EEAHEX 


NIIM 







ooi r» pooo? 


ECFE 




LDO* 


(EEAHEX) 
(EEAHEX ),Q 




00] F P0003 


CEFP 




LPA* 




0017 P0004 


PPFP. 




RAO* 


EEAHEX 




001P P0005 


FCFB 




LPQ* 


(EEAHEX) 




0019 P0006 


FPFA 




ADO* 


EFAHFX 




00?0 P0007 


4PF8 




STO* 


ANSAD 




00? 1 POOOP 


PPFP 




RAO* 


EEAHEX 




OP?? 






C?PIG 




on?? pooop 


58 OE 










00?? POOOA 


OFAP 










00?2 POPOB 


4CF4 










00?? POOPC 


5PPB 










00?? POOOO 


FCF? 










00?? POOOE 


4CF1 










oo?3 pooor 


DPFO 




RAO* 


ANSAD 




0024 






C2DIG 




00?4 P0010 


5P07 










oo?4 pooh 


OFAP 










no?4 pool? 


4CEP 










00?4 P0013 


5804 










00?4 POO 14 


FCEB 








_ 


00?4 POO] 5 


4CEA 










00?5 P0016 


1CEA 




JMP* 


(EEAHEX) 




00? 6 




• 








00?7 POP] 7 


0000 


CNVDIG 


NIIM 







00?P POO 18 


0P4? 




CLR 







PP?« P0010 


0FE4 




LLS 


4 




0030 P001A 


0DF5 




I NO 


-10 




0031 P001B 


0171 




SOM 


1 




003? PP01C 


0P07 




INQ 


7 




0033 PP01P 


0P3A 




I NO 


10+S30 




0034 P001E 


1CF8 




JMP* 


(CNVPIO) 




003B 






ENP 






PGM= 00] F ( 


3D 


COM = 


0000 ( 0) 


DAT = 0000 ( 0) 



(2 WORDS) 



RIIA 



PAGE 2 



DATE: 08/27/80 



EQUIVALENCES 
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SYMBOLS 



PEF.LINE NAME ADDRESS 
0010 EEAHEX 0001 



0011 
00J2 

0027 



MEXASC 0001 

ANSAD 0000 

CNVDIG 0017 
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0010, 0015, 0016, 0017, 0018, 0019 

0021, 0025 
0011 
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EVALUATION FORM 

Course/Seminar Name Date of Attendance From To 

Instructor Location 



Please place a rating in the box fcr each area and then add comments explaining your rating. 



Rating Key 

Excellent 5 

Very Good 4 

Good 3 

Fair 2 

Poor 1 



The Course/Seminar 

* How well did the course/seminar cover the stated objectives? 

* To what degree will the course/seminar be helpful in improving on-the-job I 1 
nerfnrmanne? I 1 



performance? 

* To what extent were the handout materials and visuals helpful in aiding your I I 
understanding of the topic? I — I 

* What is your overall rating of the organization and content of the course/seminar? 

The Instructor 

* How do you rate the instructor's knowledge of the material and ability to answer I I 
questions? I — I 

* How effective was the instructor in presenting the material in an understandable I — 1 
manner? I — I 

* How effective was the instructor in generating and sustaining interest in the I I 
course/seminar? I — I 

* How do you rate the instructor's responsiveness to the needs of participants? I I 

* What is your overall rating of the instructor? I I 

The Facilities 

* How do you rate the appropriateness of the facilities to the topic and means of I — I 
presentation? I J 

* To what extent were the facilities comfortable, well-lighted and heated or cooled? | | 

* How convenient was the location of the facility? I I 



EVALUATION FORM 
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General Comments 



( \ * What changes in the course/seminar would you make if you were the instructor? 



* Would you recommend this course/seminar to others in your company or 
department? Why? 



* Please list colleagues or associates who should receive advance notices of similar 
courses/seminars. 



1) Name 



Organization 
Address 



2) Name 



Organization 
Address 



Bus. Tel. No. 



Bus. Tel. No. 



3) Name 



Organization 
Address 



4) Name 



Organization 
Address 



Bus. Tel. No. 



Bus. Tel. No. 



* Should this course be offered at your company site? Jf so, who should be contacted 
to manage it? 



c 



If we may use your comments in future descriptions ot the course/seminar, please 
sign below. 



Signature 



(Optional) 



PARTICIPANT INFORMATION FORM 

V y- In order for our seminars/courses to be most-effective, they need to take into account the 

characteristics, needs and objectives of the people who attend them. The information asked 
for below will assist us in keeping our presentations relevant to the participants and in devel- 
oping and scheduling new presentations that will meet participant needs. Please complete this 
form and leave it with the presenter at the next break. 

Seminar/Course Title Date of Presentation 



Q 



Name Field or Type of Business 

Title Years of Experience 

Business Address Supervisor's Title 



Last professional degree 



List your three primary objectives in attending this seminar. 

1. : 

2. 

3. 



Will this course/seminar be credited toward certification/training requirements? 



Rank in order of importance in your choice of this seminar session. 

Instructor Date Location Employer's Preference 

Previous courses/seminars attended relating to this topic. 

1. 

2. ; 

3. 



Topics for additional courses/seminars in which you would be interested. 

1. . 

2. 

3. 



c 



PARTICIPANT INFORMATION FORM 
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What trade journals/magazines do you regularly read or subscribe to in order to keep abreast 
in your profession? 

1. 

2. . 

3. 



How did you become aware of this course/seminar? 
Schedule/Catalogue , 

Direct Mail Brochure , 



Recommendations of Supervisor 
Recommendation of Colleague _ 



Corporate Training Department 
Other 



_y 



a 



COMMENT SHEET 

MANUAL TITLE: CYBER 18/1700 MSOS ANALYSIS LISTINGS 
PUBLICATION NO.: QA4020-1 REVISION: B 



NAME: 



COMPANY: 



STREET ADDRESS: 
CITY: 



.STATE: 



.ZIP CODE: 



This form is not intended to bo used as an order blank. Control Data Corporation welcomes your evaluation of 
this manual. Please indicate any errors, suggested additions or deletions, or general comments below (please 
include page number references). 



c 
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National Coordinator 
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